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TSC FLOATING POINT PACKAGE 
VER 2. 3 


COPVRIGHT CC> 1976 BY 

TECHNICAL SYSTEMS CONSULTANTS 
BOX 2574 W. LAFAYETTE IN. 47906 


THE TSC FLOATING POINT PACKAGE PROVIDES 
THE BASIC ARITHMETIC FUNCTIONS ADD, SUBTRACT, 
MULTIPLY, AND DIVIDE. THE NORMALIZED 
FORM OF THE X AND V OPERANDS IS A MIXED 
FORMAT. THE MANTISSA IS SIGN PLUS MAGNI¬ 
TUDE PACKED BCD NOTATION. THIS IMPLIES 
THAT THE SIGN BYTE CXSIGN OR YSIGN> IS 
EITHER ALL ZEROS FOR POSITIVE OR ALL ONES 
FOR NEGATIVE. THE MANTISSA ITSELF CXOP OR 
YOP> IS VIEWED AS BEING A 9 DIGIT FRAC¬ 
TIONAL NUMBER WITH A ZERO TO THE LEFT OF 
THE DECIMAL POINT CIN THE UPPER HALF OF THE 
MOST SIGNIFICANT BYTE OF XOP OR YOP>. THIS 
IS DONE TO SIMPLIFY THE ARITHMETIC AND NOR¬ 
MALIZATION OPERATIONS. PACKED BCD IMPLIES 
THAT THERE ARE 2 BCD DIGITS PER BYTE. 

THE EXPONENT IS AN 8 BIT 2'S COMPLEMENT 
NUMBER WITH A RANGE OF +128 TO -127. HOW¬ 
EVER, BECAUSE OF THE WAY IN WHICH THE 
MULTIPLY, DIVIDE, AND NORMALIZE OPERATIONS 
ARE DONE THE PRACTICAL RANGE IS SLIGHTLY 
SMALLER. ONE CAN TOTALLY AVOID DEALING 
WITH THIS PROBLEM BY RESTRICTING THE EX¬ 
PONENT RANGE TO +99 AND -99. THIS SHOULD 
NOT PROVE TO BE AN UNREASONABLE CONSTRAINT. 

THE RESULT OF ALL ARITHMETIC OPERATIONS 
IS RETURNED IN NORMALIZED FORM WITH THE SIGN 
IN RSIGN, THE MANTISSA IN FPAC, AND THE 
EXPONENT IN ACEXP. 

EXAMPLES OF THE NORMALIZED FORM ARE GIVEN 
BELOW: 


NUMBER 

SIGN 

MANTISSA 

EXPONENT 


+ 100 

00 

0100000000 

03 

* 

-1163. 12 

FF 

0116312000 

04 


+0. 125 

00 

0125000000 

00 


+0. 000213 

00 

0213000000 

FD 


-0. 000213 

FF 

0213000000 

FD 



THIS PACKAGE CONTAINS SUBOUTINES ONLY. 
AN EXTERNAL DRIVER PROGRAM MUST BE USED TO 
EXERCISE THEM. THE ROUTINE RDDRESSES 
ARE GIVEN BELOW: 


OPERATION 

ADD 

SUBTRACT 

MULTIPLY 


NAME 

FPADD 

FPSUB 

FPMUL 


ADDRESS 

0103 

0100 

0180 
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2 


* DIVIDE FPDIV 0194 

* 

* 


* 

* 


+ STORAGE SPACE 


0020 


ORG 

$20 

0020 

RSIGN 

RMB 

1 

0021 

FPAC 

RMB 

5 

0026 

ACEXP 

RMB 

1 

0027 

FPMQ 

RMB 

5 

002C 

XSIGN 

RMB 

1 

002D 

XOP 

RMB 

5 

0032 

XEX 

RMB 

1 

0033 

YSIGN 

RMB 

1 

0034 

YOP 

RMB 

5 

0039 

YEX 

RMB 

1 

003R 

OVFL 

RMB 

1 

003B 

ATEMP 

RMB 

1 

003C 

ATEMP2 

RMB 

1 

003D 

BTEMP 

RMB 

1 

003E 

BTEMP2 

RMB 

1 

003F 

XTEMP 

RMB 

2 

0041 

XTEMP2 

RMB 

2 


♦ 



0005 

BC 

EQU 

05 

0100 


ORG 

$100 


* 




RESULT SIGN BVTE 
FLOATING POINT ACCUMULATOR 
ACCUMULATOR EXPONENT 
FLOATING POINT MQ REGISTER 
X SIGN BYTE 
X OPERAND MANTISSA 
X OPERRND EXPONENT 

Y SIGN BVTE 

Y OPERAND MANTISSA 

Y OPERAND EXPONENT 


TEMPORARY X STORAGE 

OPERRND BYTE COUNT 


* 

+FPSUB 

* FLOATING POINT SUBTRACT 

* SUBTRACTS YOP+VEX FROM XOP*XEX 

0100 73 00 33 FPSUB COM YSIGN CHANGE SIGN 

* GO INTO FPADD 


* 


♦FPADD 

♦ FLOATING POINT ADD ROUTINE 

♦ ADDS YOP*YEX TO XOP*XEX 


0103 

8D 

71 

FPADD 

BSR 

SETSIN 

SET SIGN HOLDER 

0105 

BD 

02 

CB 

JSR 

EXPADJ 

ADJUST EXPONENTS 

0108 

CE 

00 

21 

LDX 

#FPRC 


010B 

BD 

02 

5B 

JSR 

XOPTOX 

MOVE XOP TO FPAC 

010E 

CE 

00 

21 

LDX 

#FPAC 


0111 

BD 

02 

75 

JSR 

ZCHK 

CHECK XOP FOR =0 

0114 

27 

ID 


BEQ 

FPRD01 


0116 

CE 

00 

34 

LDX 

#YOP 

CHECK YOP FOR =0 

0119 

BD 

02 

75 

JSR 

ZCHK 

011C 

27 

19 


BEQ 

FPADD1 


011E 

96 

20 


LDA A 

RSIGN 


0120 

2fl 

15 


BPL 

FPADD1 

USE EITHER SIGN 

0122 

BD 

01 

C7 

JSR 

BCDSUB 

SUBTRACT 

0125 

25 

10 


BCS 

FPADD1 

USE X SIGN 

0127 

CE 

00 

34 

LDX 

#YOP 

POINT TO YOP 
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012A 

BD 

02 

AB 


JSR 


LTC 

012D 

CE 

00 

2D 


LDX 


#XOP 

0130 

BD 

02 

AB 


JSR 


LTC 

0133 

96 

33 


FPAD01 

LDA 

A 

YSIGN 

0135 

20 

02 



BRA 


FPADD2 

0137 

96 

2C 


FPADD1 

LDA 

A 

XSIGN 

0139 

97 

20 


FPADD2 

STA 

A 

RSIGN 

013B 

CE 

00 

21 

FPAD21 

LDX 


#FPAC 

013E 

BD 

02 

5B 


JSR 


XOPTOX 

0141 

BD 

01 

CD 


JSR 


BCDADD 

0144 

CE 

00 

27 


LDX 


#FPMQ 

0147 

BD 

02 

80 


JSR 


CLROP 


RECOMPLEMENT VOP 

COMPLEMENT XOP 
USE V SIGN 


MOVE XOP TO FPAC 
ADD 

CLEAR THE MQ 


* GO INTO NORM 
+ 

♦NORM 

* NORMALIZE FLOATING POINT RESULTS 

* MQ MUST CONTAIN VALID DATA 


014A 

CE 

00 

21 

NORM 

LDX 


#FPAC 

014D 

BD 

02 

75 


JSR 


ZCHK 

0150 

26 

07 



BNE 


N0RM2 

0152 

7F 

00 

26 


CLP. 


AC-EXP 

0155 

7F 

00 

20 


CLR 


RSIGN 

0158 

39 




RTS 



0159 

CE 

00 

21 

N0RM2 

LDX 


#FPAC 

015C 

A6 

00 



LDA 

A 

0/ X 

015E 

27 

0C 



BEQ 


N0RM3 

0160 

84 

F0 



AND 

A 

#$F0 

0162 

27 

IB 



BEQ 


SETSI1 

0164 

7C 

00 

26 


INC 


ACEXP 

0167 

29 

5A 



BVS 


FPDIV3 

0169 

7E 

02 

2F 


JMP 


EL4RR 

016C 

BD 

02 

45 

N0RM3 

JSR 


EL4RL 

016F 

7A 

00 

26 


DEC 


ACEXP 

0172 

29 

4F 



BVS 


FPDIV3 

0174 

20 

E3 



BRA 


NORM2 


CHECK FOR ZERO 


CHECK FOR OVERFLOW 


CHECK FOR OVERFLOW 


*SETSIN 

* CALCULATE XSIGN. XOR. VSIGN 

* STORE IN RSIGN 


0176 

96 

2C 

SETSIN 

LDA 

A 

XSIGN 

0178 

98 

33 


EOR 

A 

YSIGN 

017A 

97 

20 


STA 

A 

RSIGN 

017C 

7F 

00 3A 


CLR 


OVFL 

017F 

39 


SETSI1 

RTS 




♦ 

* 

*FPMUL 

* FLOATING POINT MULTIPLY ROUTINE 

* MULTIPLIES XOP*XEX BY YOP*YEX 

* TRUNCATES PRODUCT TO BC*2-1 BCD DIGITS 


0180 

8D 

F4 

FPMUL 

BSR 


SETSIN 

STORE 

OPERAND SIGNS 

0182 

96 

32 


LDA 

A 

XEX 




0184 

9B 

39 


ADD 

A 

YEX 

CALCULATE 

EXPONENT 

0186 

29 

3B 


BVS 


FPDIV3 

CHECK 

FOR 

OVERFLOW 


PAGE 
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0188 

97 

26 



STfl 

A 

ACEXP 

SAVE EXPONENT 

018A 

CE 

00 

27 


LDX 


#FPMQ 


018D 

BD 

02 

5B 


JSR 


XOPTOX 

MOVE XOP TO MQ 

0190 

8D 

50 



BSR 


BCDMUL 

MULTIPLV 

0192 

20 

B6 


e 

BRA 


NORM 






'T' 

♦FPDIV 









♦FLOATING POINT DIVIDE ROUTINE 





♦DIVIDES XOP^XEX BV VOP+YEX 





♦TRUNCATES THE 

REMAINDER 


0194 

8D 

E0 


FPDIV 

BSR 


SETSIN 

STORE SIGNS 

0196 

96 

32 



LDA 

A 

XEX 


0198 

90 

39 



SUB 

A 

VEX 

CALCULATE EXPONENT 

019A 

29 

27 



BVS 


FPDIV3 

CHECK FOR OVERFLOW 

019C 

CE 

00 

21 


LDX 


#FPAC 


019F 

BD 

02 

5B 


JSR 


XOPTOX 

MOVE XOP TO THE AC 

01A2 

CE 

00 

27 


LDX 


#FPMQ 


01R5 

BD 

02 

80 


JSR 


CLROP 

CLEAR THE MQ 

01A8 

BD 

02 

2F 


JSR 


EL4RR 

SHIFT ACMQ TO AVOID OVFL 

01AB 

4C 




INC 

A 


COMPENSATE EXPONENT 

01AC 

29 

15 



BVS 


FPDIV3 

CHECK FOR OVERFLOW 

01AE 

97 

26 



STA 

A 

ACEXP 

STORE EXPONENT 

01B0 

8D 

4B 



BSR 


BCDDIV 

DIVIDE 

01B2 

25 

0F 



BCS 


FPDIV3 

CHECK FOR OVERFLOW 

01B4 

C6 

05 



LDA 

B 

#BC 


01B6 

CE 

00 

21 


LDX 


#FPAC 


01B9 

A6 

06 


FPDIV1 

LDA 

A 

BC+i/ X 


01BB 

A7 

00 



STA 

A 

0/ X 

MOVE QUOTIENT TO THE AC 

01BD 

08 




INX 




01BE 

5A 




DEC 

B 



01BF 

26 

F8 



BNE 


FPDIV1 


01C1 

20 

87 



BRA 


NORM 


01C3 

73 

00 

3A 

FPDIV3 

COM 


OVFL 


01C6 

39 




RTS 





* 


♦BCDSUB 






♦ SUBTRACTS 

VOP FROM FF'AC 

01C7 

CE 

00 

34 

BCDSUB LDX 

#YOP 

01CR 

BD 

02 

AB 

JSR 

♦ GO INTO 

LTC TAKE TENS COMP 

BCDADD 


* 


♦BCDADD 





♦ ADDS 

VOP TO 

FPAC 





♦ USES 

ZERO 

INITIAL CARRY 

01CD 

8D 

59 

BCDADD 

BSR 


SAVREG 

SAVE REGISTER CONTENTS 

01CF 

CE 

00 21 


LDX 


#FPAC 


01D2 

0C 



CLC 




01D3 

C6 

05 


LDA 

B 

#BC 

SET COUNTER 

01D5 

A6 

04 

BCDAD1 

LDA 

A 

BC-1, X 


01D7 

A9 

17 


ADC 

A 

BC^4+3, X 


01D9 

19 



DAA 



ADJUST FOR BCD 

01DA 

A7 

04 


STA 

A 

BC-1/ X 


01DC 

09 



DEX 




01DD 

5A 



DEC 

B 


ONCE DONE 
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01DE 26 F5 
01E0 20 40 


BNE BCDAD1 

BRR RSTREG 

♦ 

♦BCDMUL 

* MULTIPLIES FPMQ BV VOP 

* ANSWER IN FPAC AND FPMQ 


RESTORE REGISTERS 


01E2 

CE 

00 

21 

BCDMUL 

LDX 


#FPAC 

01E5 

BD 

02 

80 


JSR 


CLROP 

01E8 

C6 

09 



LDA 

B 

#BC*2-1 

01EA 

96 

2B 


BCDMU1 

LDA 

A 

FPMQ+BC-1 

01EC 

84 

0F 



AND 

A 

#$0F 

01EE 

27 

07 



BEQ 


BCDMU3 

01F0 

8D 

DB 


BCDMU2 

BSR 


BCDADD 

01F2 

7A 

00 

2B 


DEC 


FPMQ+BC-1 

01F5 

20 

F3 



BRA 


BCDMU1 

01F7 

8D 

36 


BCDMU3 

BSR 


EL4RR 

01F9 

5A 




DEC 

B 


01FA 

26 

EE 



BNE 


BCDMU1 

01FC 

39 




RTS 




CLEAR FPAC 
SET CTR 
GET LS BVTE 
MASK OFF LS BCD 

ADD IN OPERAND 


SHIFT ACMQ 1 BCD RIGHT 


♦ 

♦BCDDIV 

* DIVIDES FPAC AND FPMQ BV VOP 

* QUOTIENT RETURNED IN FPMQ, REMAINDER IN FPAC 

* CARRV RETURNED SET ON OVERFLOW 


01FD 

CE 

00 

34 

BCDDIV 

LDX 


#VOP 



0200 

8D 

73 



BSR 


2CHK . 



0202 

26 

02 



BNE 


BCDD15 

CHECK FOR DIV BV 

0 

0204 

0D 




SEC 





0205 

39 



BCDDI1 

RTS 





0206 

C6 

0A 


BCDD15 

LDA 

B 

#BC*=2 



0208 

8D 

BD 



BSR 


BCDSUB 

SUBTRACT OPERAND 


020A 

24 

0C 



BCC 


BCDDI3 

CHECK FOR OVFL 


020C 

39 




RTS 





020D 

8D 

36 


BCDD16 

BSR 


EL4RL 

SHIFT ACMQ 1 BCD 

LEFT 

020F 

8D 

BC 


BCDDI2 

BSR 


BCDADD 

SUBTRACT OPERAND 


0211 

24 

05 



BCC 


BCDDI3 

IF NO CARRV, TOO 

SMALL 

0213 

7C 

00 

2B 


INC 


FPMQ+BC 

-1 TALLV ONE 


0216 

20 

F7 



BRA 


BCDDI2 



0218 

8D 

AD 


BCDDI3 

BSR 


BCDSUB 

COMPENSATE REMAINDER 

021A 

BD 

02 

AB 


JSR 


LTC 

RECOMPLEMENT 


021D 

5A 




DEC 

B 


DEC LOOP CTR 


021E 

26 

ED 



BNE 


BCDD16 



0220 

0C 




CLC 





0221 

39 



* 

♦RSTREG 

RTS 









♦ RESTORE REGISTERS X, 

A, B 


0222 

96 

3B 


RSTREG 

LDA 

A 

ATEMP 



0224 

D6 

3D 



LDA 

B 

BTEMP 



0226 

DE 

3F 



LDX 


XTEMP 




♦ GO INTO SAVREG 

* 

♦SAVREG 

* SAVE REGISTERS X,A,B 
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0228 

97 

3B 


SRVREG 

STA A 

022A 

D7 

3D 



STA B 

022C 

DF 

3F 



STX 

022E 

39 



sL 

RTS 





*EL4RR 
* EXTRA 

LONG 4 





* ROTATES ACMQ 

022F 

8D 

F7 


EL4RR 

BSR 

0231 

86 

04 



LDA A 

0233 

CE 

00 

21 

EL4RR1 

LDX 

0236 

C6 

01 



LDA B 

0238 

0C 




CLC 

0239 

8D 

4E 



BSR 

023B 

CE 

00 

27 


LDX 

023E 

8D 

49 



BSR 

0240 

4A 




DEC A 

0241 

26 

F0 



BNE 

0243 

20 

DD 


a. 

BRA 





’r 

*EL4RL 
* EXTRA 

LONG 4 





* ROTATES ACMQ 

0245 

8D 

El 


EL4RL 

BSR 

0247 

86 

04 



LDA A 

0249 

CE 

00 

27 

EL4RL1 

LDX 

024C 

0C 




CLC 

024D 

C6 

01 



LDA B 

024F 

8D 

49 



BSR 

0251 

CE 

00 

21 


LDX 

0254 

8D 

44 



BSR 

0256 

4A 




DEC A 

0257 

26 

F0 



BNE 

0259 

20 

C7 


EL4RL2 

* 

+XOPTOX 

BRA 





* MOVE : 

XOP TO 





* MODIFIES X 

025B 

8D 

CB 


XOPTOX 

BSR 

025D 

CE 

00 

2D 


LDX 

0260 

C6 

05 



LDA B 

0262 

A6 

00 


XOPTOl 

LDA A 

0264 

08 




INX 

0265 

DF 

41 



STX 

0267 

DE 

3F 



LDX 

0269 

A7 

00 



STA A 

026B 

08 




INX 

026C 

DF 

3F 



STX 

026E 

DE 

41 



LDX 

0270 

5A 




DEC B 

0271 

26 

EF 



BNE 

0273 

20 

AD 



BRA 


* 

*ZCHK 


ATEMP 

BTEMP 

XTEMP 


ROTATE RIGHT 
RIGHT ONE BCD 


SAVREG 

#04 

#FPAC 

#01 

SAVE PTRS 

POINT TO AC 

LRR 

#FPMQ 

LRR 

SHIFT AC 

POINT TO MQ 

SHIFT MQ 

EL4RR1 

RSTREG 


ROTATE LEFT 

LEFT ONE BCD DIGIT 

SAVREG 

#04 SET SHIFT COUNT 

#FPMQ 

#01 

LRL 

#FPAC 

LRL 

SHIFT 

SHIFT AC 

EL4RL1 

RSTREG 

RESTORE POINTERS 

LOCN POINTED TO BV X 

SAVREG 

#XOP 

#BC 

0, X 

POINT TO XOP 

SET CTR 

XTEMP2 

XTEMP 

0, X 

STORE PTR 

LOAD DEST PTR 

XTEMP 

XTEMP2 


XOPTOl 

RSTREG 
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* CHECK A 5 BYTE BCD FOR =0 

* OPERAND POINTED TO BY X 

* MODIFIES B, X 


0275 

C6 

05 

ZCHK 

LDA 

B 

#BC 

0277 

6D 

00 

ZCHK1 

TST 


0/ X 

0279 

26 

04 


BNE 


ZCHK2 

027B 

08 



INX 



027C 

5A 



DEC 

B 


027D 

26 

F8 


BNE 


ZCHK1 

027F 

39 


ZCHK2 

RTS 




* 


*CLROP 

* CLEAR 5 BYTE OPERAND POINTED TO BY X 

* MODIFIES B,X 


0280 

C6 

05 

CLROP 

LDA 

B 

#BC 

0282 

6F 

00 

CLROP1 

CLR 


0, X 

0284 

08 



INX 



0285 

5A 



DEC 

B 


0286 

26 

FA 


BNE 


CLROP1 

0288 

39 



RTS 






*LRR 

* LONG ROTATE RIGHT WITH CARRY 

* X POINTS TO THE MS BYTE 

* B CONTAINS AMOUNT OF SHIFT 


0289 

8D 

65 

LRR 

BSR 


SVRG2 

028B 

DE 

41 

LRR1 

LDX 


XTEMP2 

028D 

86 

05 


LDA 

A 

#BC 

028F 

66 

00 

LRR2 

ROR 


0, X 

0291 

08 



INX 



0292 

4A 



DEC 

A 


0293 

26 

FA 


BNE 


LRR2 

0295 

5A 



DEC 

B 


0296 

26 

F3 


BNE 


LRR1 

0298 

20 

5C 

LRR3 

BRA 


RSRG2 


* 


*LRL 

* LONG ROTATE LEFT WITH CARRY 

* X POINTS TO THE MS BYTE 

* B CONTAINS THE AMOUNT OF SHIFT 


029A 

8D 

54 

LRL 

BSR 


SVRG2 

029C 

DE 

41 

LRL1 

LDX 


XTEMP2 

029E 

86 

05 


LDA 

A 

#BC 

02A0 

69 

04 

LRL2 

ROL 


BC-1, X 

02A2 

09 



DEX 



02A3 

4A 



DEC 

A 


02A4 

26 

FA 


BNE 


LRL2 

02A6 

5A 



DEC 

B 


02A7 

26 

F3 


BNE 


LRL1 

02A9 

20 

4B 


BRA 


RSRG2 


* 


*LTC 

* LONG TENS COMPLEMENT OF OPERAND 
>* POINTED TO BY X 
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02AB 

8D 

43 


LTC 

BSP 

SVRG2 


02AD 

C6 

05 



LDA B 

#BC 


02AF 

86 

99 


LTC1 

LDA A 

#*99 


02B1 

A0 

04 



SUB A 

BC-1, X 


02B3 

A7 

04 



STA A 

BC-1, X 


02B5 

09 




DEX 



02B6 

5A 




DEC B 



02B7 

26 

F6 



BNE 

LTC1 


02B9 

0D 




SEC 



02BA 

C6 

05 



LDA B 

#BC 


02BC 

DE 

41 



LDX 

XTEMP2 


02BE 

86 

00 


LTC2 

LDA A 

#00 


02C0 

A9 

04 



ADC A 

BC-1, X 


02C2 

19 




DAA 



02C3 

A7 

04 



STA A 

CD 

O 

1 

yr 


02C5 

09 




DEX 



02C6 

5A 




DEC B 



02C7 

26 

F5 



BNE 

LTC2 


02C9 

20 

2B 


LTC4 

kL, 

BRA 

RSRG2 






♦EXPADJ 








* ADJUS 

TS EXPONENTS FOR 

ADD AND SUBTRACT 





♦ OPERATES ON 

XOP AND VOP 





♦ MODIFIES A, B, X 


02CB 

96 

32 


EXPADJ 

LDA A 

XEX 

LOAD X EXPONENT 

02CD 

91 

39 



CMP A 

VEX 

COMPARE WITH V EXP 

02CF 

27 

1C 



BEQ 

EXP 3 

EXPONENTS SAME? 

02D1 

2E 

07 



BGT 

EXP1 

XEX>VEX? 

02D3 

CE 

00 

2D 


LDX 

#XOP 

POINT TO XOP 

02D6 

96 

39 



LDA A 

VEX 

GET VEX 

02D8 

20 

03 



BRA 

EXP2 


02DA 

CE 

00 

34 

EXP1 

LDX 

#VOP 

POINT TO VOP 

02DD 

C6 

04 


EXP2 

LDA B 

#04 


02DF 

8D 

R8 



BSR 

LRR 


02E1 

E6 

00 



LDA B 

0, X 


02E3 

C4 

0F 



AND B 

#*0F 

MASK OFF GOOD BCD 

02E5 

E7 

00 



STA B 

0, X 

SHIFTED 1 BCD RIGHT 

02E7 

6C 

05 



INC 

BC, X 

INCREMENT EXPONENT 

02E9 

A1 

05 



CMP A 

BCG X 

SAME VET? 

02EB 

26 

F0 



BNE 

EXP2 

IF NOT/ DO AGAIN 

02ED 

97 

26 


EXP3 

STA A 

ACEXP 

STORE NEW EXPONENT 

02EF 

39 




RTS 


DONE 


* 


♦SVRG2 





♦ LEVEL2 REGIS 

TER SAVE 

02F0 

DF 

41 

SVRG2 STX 

XTEMP2 

02F2 

97 

3C 

STA A 

ATEMPS 

02F4 

D7 

3E 

STA B 

BTEMP2 




♦ GO INTO RSRG2 


* 


*RSRG2 


02F6 

DE 

41 

♦ LEVEL2 REGISTER RESTORE 
RSRG2 LDX XTEMP2 

02F8 

96 

3C 

LDA A ATEMPS 
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02FR D6 3E LDA B BTEMP2 

02FC 39 RTS 


END 


SYMBOL TABLE: 

RCEXP 0026 ATEMP 

003B 

ATEMP2 

003C 

BC 

0005 

BCDRD1 

01D5 

BCDRDD 

01CD 

BCDD15 

0206 

BCDD16 

020D 

BCDDI1 

0205 

BCDDI2 

020F 

BCDDI3 

0218 

BCDDIV 

01FD 

BCDMU1 

01EA 

BCDMU2 

01F0 

BCDMU3 

01F7 

BCDMUL 

01E2 

BCDSUB 

01C7 

BTEMP 

003D 

BTEMP2 

003E 

CLROP 

0280 

CLROP1 

0282 

EL4RL 

0245 

EL4RL1 

0249 

EL4RL2 

0259 

EL4RR 

022F 

EL4RR1 

0233 

EXP1 

02DA 

EXP2 

02DD 

EXP3 

02ED 

EXPRDJ 

02CB 

FPAC 

0021 

FPAD01 

0133 

FPAD21 

013B 

FPADD 

0103 

FPRDD1 

0137 

FPRDD2 

0139 

FPDIV 

0194 

FPDIV1 

01B9 

FPDIV3 

01C3 

FPMQ 

0027 

FPMUL 

0180 

FPSUB 

0100 

LRL 

029R 

LRL1 

029C 

LRL2 

02A0 

LRR 

0289 

LRR1 

028B 

LRR2 

023F 

LRR3 

0298 

LTC 

02AB 

LTC1 

02AF 

LTC2 

02BE 

LTC4 

02C9 

NORM 

014R 

N0RM2 

0159 

N0RM3 

016C 

OVFL 

003A 

RSIGN 

0020 

RSRG2 

02F6 

RSTREG 

0222 

SAVREG 

0228 

SETSI1 

017F 

SETSIN 

0176 

SVRG2 

02F0 

XEX 

©032 

XOP 

002D 

XOPTOl 

0262 

XOPTOX 

025B 

XSIGN 

002C 

XTEMP 

003F 

XTEMP2 

0041 

YEX 

0039 

VOP 

0034 

YSIGN 

0033 

ZCHK 

0275 

ZCHK1 

0277 

ZCHK2 

027F 








Si1301007300338D71BD02CBCECGZ1BDG25BCEOOE6 
SI 13011021BD0275271 DCE0034BD02752719962016 
S1 13 01202A15BD01C72510CE0034BD02ABCF002D6B 
Si130130BD02AB96332002962C9720CE9021BDC23F 
SI1301405BBD01CDCE0027BD0280CE0021BD02756E 
S113015026077F00267F002039CE0021A 600270C29 
SI13016084F0271B7C0026295A7E022FBD02457A83 
Si 1301700026294F20E3962C983397207F903A39A4 
Si1501808DF496329B39293B9726CE0027BD025B1E 
S1 13 01938D5 020B68DE096 329039292 7CECn2lBDAE 
SI13 01A0 025BCE002 7BD02 80BD02 2F4C291 59 72685 
SI13 01B0 8D4B250FC6 05CE0021 A606A700085A2 69A 
Si 1301 COF8208773003A39CE0034BD0 2AB8D59CE86 
SI1301D000210CC605A604A91719A704095A26F577 
SI1301E02040CE0021BD0280C609962B840F27072C 
SI 13 01F0 8DDB7A002B2 0F38D365A26EE3 9CE003 4 6F 
SI1302008D7326020D39C60A8DBD240C398D368DA9 
S1130210BC24057C002B20F78DADBD02AB5A26ED26 
S11302200C39963BD63DDE3F973BD73DDF3F398DBA 
SI 130230F78604CE0021C6010C8D4EC E00278D49D1 
SI1302404A26F020DD8DE18604CE00270CC6018DOO 
SI13025049CE00218D444A26F020C780CBCE002DF7 
SI130260C605A60008DF41DE3FA70008DF3FDE41E8 
Si1302705A26EF20ADC6056D002604085A26F83923 
SI 13 0280C60 56F00085A26FA398D6 5DE41 86056 6 73 
Si 13029000084A26FA5A26F3205C8D54DE41 86056E 
SI1302A06904094A26FA5A26F3204B8D43C605866B 
SI1302B099A004A704095A26F60DC605DE41860056 
SI1302CQA90419A704095A26F5202B963291392737 
SI1302D01C2E07CE002D96392003CE0034C6048D83 
SI1302E0A8E600C40FE7Q06C05A10526F09726399F 
SI 1002F0DF41973CD73E0E41963CD63E39B7 
S9030000FC 
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* TSC FLOATING POINT PACKAGE DRIVER 

* 

* 

* COPYRIGHT CC> 1976 BY 

* TECHNICAL SYSTEMS CONSULTANTS 

* BOX £574 W. LAFAYETTE IN. 47906 

* 

* THE TSC FLOATING POINT PACKAGE DRIVER, WHEN 

* USED IN CONJUNCTION WITH THE TSC FLOATING POINT 

* PACKAGE, IMPLEMENTS A BASIC FOUR-FUNCTION 

* SCIENTIFIC NOTATION CALCULATOR. THIS PROGRAM 

* ACCEPTS INPUT FROM THE KEYBOARD, IN A FORM 

* TO BE DESCRIBED LATER, INITIATES THE CALCULATION 

* AND THEN OUTPUTS THE RESULT. 

* THE USER IS PROMPTED WITH THE SYMBOL > 

* AT WHICH POINT THE FIRST OPERAND IS TYPED. THE 

* OPERANDS ARE SUBJECT TO FORMAT RESTRICTIONS 

* AS NOTED BELOW. DIRECTLY FOLLOWING THE FIRST 

* OPERAND THE USER TYPES THE OPERATOR, EITHER A 

* +, -, +, OR / FOR ADD, SUBTRACT, MULTIPLY, OR 

* DIVIDE, RESPECTIVELY. DIRECTLY FOLLOWING THE 

* OPERATOR, THE USER TYPES THE SECOND OPERAND, 

* SUBJECT TO THE SAME RESTRICTIONS AS THE FIRST. 

* NEXT A CARRIAGE RETURN IS TYPED TO INITIRTE 

* THE CALCULATION AND THEN THE ANSWER IS TYPED 

* OUT AND THE USER IS PROMPTED FOR THE NEXT 

* CALCULATION. 

* THE RESTRICTIONS ON THE FORMAT OF THE 
+ OPERANDS ARE AS FOLLOWS: 

* 1) THE OPERAND MUST BEGIN WITH A PLUS, 

* A MINUS, A DECIMAL POINT (PERIOD), OR ANY 

* DECIMAL DIGIT. 

* 2) THE DECIMAL POINT, IF IT APPEARS, MAY 

* BE ANY WHERE IN THE NUMBER AFTER THE SIGN 

* (IF ANY) AND BEFORE THE EXPONENT (IF ANY). 

* 3) THE EXPONENT, INDICATED BY THE LETTER 

* E, MAY BE PRECEEDED BY A PLUS OR MINUS SIGN 

* AND IS LIMITED TO TWO DIGITS. 

* 

* THE CALCULATOR TRUNCATES ALL DIGITS IN EXCESS 

* OF 9 SIGNIFICANT DIGITS. 

* SOME POSSIBLE FORMS ARE SHOWN BELOW: 

* >12*1. 3 

* >. 001-6 

* >-l£+3E£ 

* >+5. 6E-E1/-21E+00 

* >123456. 789+. 987654321 

* >+l. 2—3. IE-1 

* >4+—5 
+ 

* DEPARTURE FROM THE FORMAT RESTRICTIONS WILL 

* CAUSE A SYNTAX ERROR MESSAGE TO BE PRINTED. 

* OPERATIONS RESULTING IN ARITHMETIC OVER- 
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* FLOW OR UNDERFLOW WILL CRUSE RN OVERFLOW 

* MESSAGE TO BE PRINTED. 

* THE STARTING ADDRESS OF THIS PROGRAM 

* IS 0300. 

* 

* MIKBUG ROUTINES 

* <MIKBUG IS A REGISTERED 

* TRADEMARK OF MOTOROLA INC. > 


E07E 

PDATA1 

EQU 

$E07E 

E1AC 

INEEE 

EQU 

$E1AC 

E1D1 

OUTEEE 

EQU 

$E1D1 

E067 

OUTHL 

EQU 

$E067 

E06B 

OUTHR EQU 

* 

* STORAGE 

$E06B 

0050 


ORG 

$0050 

0050 

INBUF 

RMB 

6 

0056 

INEXP 

RMB 

1 

0057 

SIGDIG 

RMB 

1 

0058 

DECFLG 

RMB 

1 

0059 

EXPNEG 

RMB 

1 

005A 

EXP 

RMB 

1 

005B 

SYNTAX 

RMB 

1 

005C 

OPER 

RMB 

1 

003F 

XTEMP 

EQU 

$003F 

0041 

XTEMP2 

EQU 

$0041 

003D 

CTR 

EQU 

$003D 

003E 

TOGGLE 

EQU 

$003E 

002C 

XSIGN 

EQU 

$002C 

0033 

YSIGN 

EQU 

$0033 

0026 

AC EXP 

EQU 

$0026 

0020 

RSIGN 

EQU 

$0020 

003A 

OVFL 

EQU 

$003A 


* 

* 






❖FLOATING POINT PACKAGE 

ROUTINES 


0103 




FPADD 

EQU 


$0103 



0100 




FPSUB 

EQU 


$0100 



0180 




FPMUL 

EQU 


$0180 



0194 




FPDIV 

* 

* 

* 

EQU 


$0194 



A048 




ORG 


$A048 



A048 

03 

00 



FDB 


BEG 



0300 





ORG 


$0300 



0300 

8E 

A0 

42 

BEG 

LDS 


#$A042 

INITIALIZE SP 


0303 

CE 

04 

DB 

START 

LDX 


#PROM 



0306 

BD 

E0 

7E 


JSR 


PDATA1 



0309 

4F 




CLR 

A 




030A 

97 

5B 



STA 

A 

SYNTAX 

CLEAR SYNTAX ERROR 

030C 

97 

5C 



STA 

A 

OPER 

CLEAR OPERATOR 

FLAG 

030E 

BD 

03 

EE 


JSR 


INPUT 

FILL THE INPUT 

BUFFER 

0311 

96 

5B 



LDA 

A 

SYNTAX 
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0313 

26 

3C 



BNE 


SVNERR 

CHECK FOR SVNTRX ERROR 

0315 

CE 

00 

2C 


LDX 


#XSIGN 


0318 

BD 

03 

D3 


JSR 


BUFTOX 

TRANSFER INPUT TO XOP 

031B 

BD 

03 

EE 

NXTOP 

JSR 


INPUT 

FILL BUFFER RGRIN 

031E 

96 

5B 



LDR 

R 

SVNTRX 


0320 

26 

2F 



BNE 


SVNERR 

CHECK FOR SVNTRX ERROR 

0322 

CE 

00 

33 


LDX 


#VSIGN 


0325 

BD 

03 

D3 


JSR 


BUFTOX 

TRANSFER TO VOP 

0328 

96 

5C 



LDR 

fl 

OPER 

GET OPERATOR 

032R 

4fl 




DEC 

R 



032B 

27 

15 



BEQ 


RDDOP 

IS IT RN RDD REQUEST 

032D 

4fl 




DEC 

fl 



032E 

27 

0D 



BEQ 


SUBOP 

IS IT R SUBTRACT REQ. 

0330 

4R 




DEC 

R 



0331 

27 

05 



BEQ 


MULOP 

IS IT R MULT. REQUEST 

0333 

BD 

01 

94 


JSR 


FPDIV 

ASSUME IT IS R DIVIDE 

0336 

20 

0D 



BRR 


PRINT 


0338 

BD 

01 

80 

MULOP 

JSR 


FPMUL 

GO MULTIPLV 

033B 

20 

08 



BRR 


PRINT 


033D 

BD 

01 

00 

SUBOP 

JSR 


FPSUB 

GO SUBTRACT 

0340 

20 

03 



BRR 


PRINT 


0342 

BD 

01 

03 

RDDOP 

JSR 


FPRDD 

GO ADD 

0345 

96 

3R 


PRINT 

LDR 

fl 

OVFL 


034? 

27 

0D 



BEQ 


NOVFL 

TEST FOR OVERFLOW 

0349 

CE 

04 

E2 

OV 

LDX 


#OVER 


034C 

BD 

E0 

7E 

PRTMES 

JSR 


PDRTR1 

GIVE HIM MESSAGE 

034F 

20 

B2 



BRR 


START 

DO RGRIN 

0351 

CE 

04 

EF 

SVNERR 

LDX 


#SVNT 


0354 

20 

F6 



BRR 


PRTMES 

PRINT MESSAGE 

0356 

96 

21 


NOVFL 

LDR 

R 

RSIGN+1 

GET FIRST DIGIT 

0358 

27 

03 



BEQ 


OVCHK 

CHECK FOR =0 

035R 

7R 

00 

26 


DEC 


RCEXP 

ADJUST FOR OUTPUT 

035D 

96 

26 


OVCHK 

LDR 

R 

RCEXP 


035F 

81 

63 



CMP 

R 

#99 


0361 

2E 

E6 



BGT 


OV 

TEST FOR EXP OVERFLOW 

0363 

81 

9D 



CMP 

R 

#$9D 


0365 

2D 

E2 



BLT 


OV 

TEST FOR EXP UNDERFLOW 

0367 

CE 

04 

FR 


LDX 


#EQURL 


036R 

BD 

E0 

7E 


JSR 


PDATR1 

PRINT CRLF = 

036D 

96 

20 



LDR 

R 

RSIGN 

GET SIGN 

036F 

27 

05 



BEQ 


POS 

IS IT POSITIVE 

0371 

86 

2D 



LDR 

R 

#'- 


0373 

BD 

El 

D1 


JSR 


OUTEEE 

PRINT R MINUS 

0376 

96 

21 


POS 

LDR 

R 

RSIGN+1 

GET BVTE 

0378 

BD 

E0 

6B 


JSR 


OUTHR 

PRINT LS BCD 

037B 

C6 

08 



LDR 

B 

#8 

SET FOR COUNTING OFF 

037D 

CE 

00 

25 


LDX 


#RCEXP-1 

POINT TO LAST BVTE 

0380 

R6 

00 


CNTOFF 

LDR 

R 

0 / X 

GET THE BVTE 

0382 

85 

0F 



BIT 

fl 

#$0F 


0384 

26 

09 



BNE 


GOTCNT 

CHECK FOR LS ZERO 

0386 

5R 




DEC 

B 


COUNT OFF DIGIT 

0387 

85 

F0 



BIT 

R 

#*F0 


0389 

26 

04 



BNE 


GOTCNT 

CHECK FOR MS ZERO 

038B 

09 




DEX 



POINT TO NEXT 




FLORTING 

POINT 

PACKAGE 

DRIVER 


TSC RSSEMBLER PRGE 

033C 

5R 




DEC 

B 


COUNT OFF ONE DIGIT 

038D 

£6 

FI 



BNE 


CNTOFF 

IF NOT 3 DO RGRIN 

038F 

CE 

00 

£2 

GOTCNT 

LDX 


#RSIGN+2 

POINT TO SEC. BVTE 

0392 

5D 




TST 

B 


CHECK FOR ZERO 

0393 

£7 

16 



BEQ 


PRTEXP 

IF SO. GO PRINT EXP. 

0395 

86 

2E 



LDR 

R 

#'. 


0397 

BD 

El 

D1 


JSR 


OUTEEE 

PRINT DECIMRL POINT 

039R 

R6 

00 


PRTLOP 

LDR 

R 

0, X 

GET NEXT CHAR 

039C 

BD 

E0 

67 


JSR 


OUTHL 

PRINT MS BCD 

039F 

5R 




DEC 

B 


CHECK IF DONE 

03R0 

27 

09 



BEQ 


PRTEXP 

IF SO GO PRINT EXP. 

03R2 

R6 

00 



LDR 

R 

0, X 

GET BVTE RGRIN 

03R4 

BD 

E0 

6B 


JSR 


OIJTHR 

PRINT LS BCD 

03R7 

08 




INX 




03R8 

5R 




DEC 

B 


ONE BVTE DONE 

03R9 

26 

EF 



BNE 


PRTLOP 


03RB 

D6 

£6 


PRTEXP 

LDR 

B 

RCEXP 


03RD 

27 

£1 



BEQ 


NOPRT 

CHECK FOR EXP =0 

03RF 

86 

45 



LDR 

fl 

# ' E 


03B1 

BD 

El 

D1 


JSR 


OUTEEE 

PRINT RN E 

03B4 

86 

£B 



LDR 

R 

#' + 

GET ASCII FOR + 

03B6 

5D 




TST 

B 


CHECK THE SIGN 

03B7 

2R 

03 



BPL 


PRTEXS 

TEST SIGN 

03B9 

50 




NEG 

B 


COMPLEMENT THE EXP. 

03BR 

86 

2D 



LDR 

R 

#'- 


03BC 

BD 

El 

D1 

PRTEXS 

JSR 


OUTEEE 

PRINT EXPONENT SIGN 

03BF 

4F 




CLR 

R 


CONVERT TO BCD RND PRINT 

03C0 

C0 

0R 


SUBT 

SUB 

B 

#10 

SUBTRACT 10 

03C2 

25 

03 



BCS 


TOOMRN 

SHOULDN'T SUBTRACT? 

03C4 

4C 




INC 

R 


COUNT ONCE 

03C5 

20 

F9 



BRR 


SUBT 


03C7 

BD 

E0 

6B 

TOOflRN 

JSR 


OUTHR 

PRINT MS DIGIT 

03CR 

86 

0R 



LDR 

R 

#10 


03CC 

IB 




RBR 



COMPENSATE REMAINDER 

03CD 

BD 

E0 

6B 


JSR 


OUTHR 

PRINT LS DIGIT 

03D0 

7E 

03 

03 

NOPRT 

* 1 * 

JMP 


STRRT 






*BUFTOX 









* MOVE 

INPUT BUFFER CONTENTS TO X 

03D3 

DF 

3F 


BUFTOX 

STX 


XTEMP 

SAVE X 

03D5 

CE 

00 

50 


LDX 


#INBUF 


03D8 

R6 

00 


BUF1 

LDR 

R 

0. X 

GET CHRP OF BUFFER 

03DR 

08 




INX 




03DB 

8C 

00 

58 


CPX 


#INEXP+£ 

DONE VET? 

03DE 

27 

0D 



BEQ 


DONE 


03E0 

DF 

41 



STX 


XTEMP2 


03E2 

DE 

3F 



LDX 


XTEMP 


03E4 

R7 

00 



STR 

R 

0, X 


03E6 

08 




INX 




03E7 

DF 

3F 



STX 


XTEMP 


03E9 

DE 

41 



LDX 


XTEMP2 


03EB 

20 

EB 



BRR 


BUF1 


03ED 

39 



DONE 

RTS 
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*INPUT 

* FILL THE INPUT BUFFER 


AND SET FLAGS 


03EE 

CE 

00 

5A 

INPUT 

LDX 


#EXP 


03F1 

6F 

00 


STUF 

CLR 


0/ X 

CLEAR THE BUFFER 

03F3 

09 




DEX 




03F4 

8C 

00 

4F 


CPX 


#INBUF-1 


03F7 

26 

F8 



BNE 


STUF 


03F9 

08 




I NX 




03FA 

7F 

00 

3D 


CLR 


CTR 

CLEAR FULL FLAG 

03FD 

C6 

FF 



LDA 

B 

#$FF 


03FF 

D7 

3E 



STA 

B 

TOGGLE 

SET BYTE TOGGLE 

0401 

BD 

04 

D3 

INCH 

JSR 


INCHAR 

GET A CHAR 

0404 

81 

2B 



CMP 

A 

#' + 


0406 

27 

11 



BEQ 


INNEXT 

IGNORE PLUS SIGN 

0408 

81 

2D 



CMP 

A 



040A 

26 

04 



BNE 


NOTNEG 

IF NOT MINUS PROCEED 

040C 

63 

00 



COM 


0/ X 

SET SIGN INDICATOR 

040E 

20 

09 



BRA 


INNEXT 

GET NEXT CHAR 

0410 

81 

2E 


NOTNEG 

CMP 

A 

#'. 


0412 

27 

03 



BEQ 


ISPT 

CHECK FOR DEC. POINT 

0414 

08 



NOTPT 

INX 



POINT NEXT BYTE 

0415 

20 

06 



BRA 


CRCHK 

GO CHECK FOR CR 

0417 

97 

58 


ISPT 

STA 

A 

DECFLG 

SET DECIMAL FLAG 

0419 

08 



INNEXT 

INX 




041A 

BD 

04 

D3 

GETIN 

JSR 


INCHAR 

GET CHAR 

041D 

81 

0D 


CRCHK 

CMP 

A 

#SD 


041F 

27 

71 



BEQ 


REL 

CHECK FOR CR 

0421 

80 

30 



SUB 

A 

#"•0 

REMOVE ASCII BIAS 

0423 

27 

08 



BEQ 


GOTZER 

CHECK FOR ZERO INPUT 

0425 

2B 

3A 



BMI 


NOTVET 

CHECK FOR <0 

0427 

81 

09 



CMP 

A 

#'9-'0 


0429 

22 

36 



BHI 


NOTVET 

CHECK FOR >9 

042B 

97 

57 



STA 

A 

SIGDIG 

SET SIGNIFICANT FLAG 

042D 

D6 

3D 


GOTZER 

LDA 

B 

CTR 


042F 

26 

E9 



BNE 


GETIN 

CHECK FOR BUFF. FULL 

0431 

D6 

57 



LDA 

B 

SIGDIG 

HAD SIG. DIGITS? 

0433 

26 

09 



BNE 


TSTNXT 


0435 

D6 

58 



LDA 

B 

DECFLG 

HAD DECIMAL PT? 

0437 

27 

El 



BEQ 


GETIN 

IF NOT 0 NOT SIG. 

0439 

7A 

00 

56 


DEC 


INEXP 

IF SO BACK UP EXP. 

043C 

20 

DC 



BRA 


GETIN 


043E 

D6 

58 


TSTNXT 

LDA 

B 

DECFLG 

HAD DECIMAL PT? 

0440 

26 

03 



BNE 


STORIT 

IF SO EXP. OK 

0442 

7C 

00 

56 


INC 


INEXP 

KICK EXPONENT 

0445 

D6 

3E 


STORIT 

LDA 

B 

TOGGLE 

CHECK FOR WHICH DIGIT 

0447 

26 

04 



BNE 


LOHALF 


0449 

48 




ASL 

A 



044A 

48 




ASL 

A 



044B 

48 




ASL 

A 



044C 

48 




ASL 

A 


GET TO TOP HALF 

044D 

AA 

00 


LOHALF 

ORA 

A 

0, X 

MERGE 

044F 

A7 

00 



STA 

A 

0/ X 

RE-STORE IT 

0451 

73 

00 

3E 


COM 


TOGGLE 

SET FOR NEXT DIGIT 

0454 

26 

01 



BNE 


NOTNXT 

CHECK FOR NEXT BYTE 
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9456 

08 




I NX 



POINT TO NEXT BYTE 

0457 

8C 

00 

56 

NOTNXT 

CPX 


#INEXP 

CHECK FOR END OF BUFF 

045A 

26 

BE 



BNE 


GETIN 

IF NOT GET MORE 

045C 

73 

00 

3D 


COM 


CTR 

SET BUFFER END FLG 

045F 

20 

B9 



BRA 


GETIN 

GET NEXT CHAR 

0461 

8B 

30 


NOTYET 

ADD 

A 

#'0 

RESTORE ASCII 

0463 

81 

45 


FULL 

CMP 

A 

#'E 


0465 

27 

2D 



BEG! 


EXPIN 

CHECK FOR EXP IND. 

0467 

C6 

01 



LDA 

B 

#1 

SET OPER FLAG 

0469 

81 

2B 



CMP 

A 

#' + 


046B 

27 

IF 



BEQ 


GOTOP 

CHECK FOR ADD OPER. 

046D 

5C 




INC 

B 



046E 

81 

2D 



CMP 

A 



0470 

27 

1A 



BEQ 


GOTOP 

CHECK FOR SUB. OPER. 

0472 

5C 




INC 

B 



0473 

81 

2A 



CMP 

A 

#•'* 


0475 

27 

15 



BEQ 


GOTOP 

CHECK FOR MUL. OPER. 

0477 

5C 




INC 

B 



0478 

81 

2F 



CMP 

A 



047A 

27 

10 



BEQ 


GOTOP 

CHECK FOR DIV. OPER. 

047C 

81 

2E 



CMP 

A 

#'. 

CHECK FOR DEC. PT 

047E 

26 

08 



BNE 


SYNERF 


0480 

D6 

58 



LDA 

B 

DECFLG 

CHECK FOR ALREADY DEC. 

0482 

26 

04 



BNE 


SYNERF 


0484 

97 

58 



STA 

A 

DECFLG 

FLAG A DEC. PT. 

0486 

20 

92 



BRA 


GETIN 


0488 

97 

5B 


SYNERF 

STA 

A 

SYNTAX 

FLAG A SYNTAX ERROR 

048A 

20 

8E 



BRR 


GETIN 

GET MORE CHARS. 

048C 

96 

5C 


GOTOP 

LDA 

A 

OPER 

CHECK FOR ALREADY OPER. 

048E 

26 

F8 



BNE 


SYNERF 

IF SO/ FLAG AN ERROR 

0490 

D7 

5C 



STA 

B 

OPER 

SET OPER FLG 

0492 

20 

27 


REL 

BRA 


GOTDIG 


0494 

8D 

3D 


EXPIN 

BSR 


INCHAR 


0496 

81 

2B 



CMP 

A 

#' + 


0498 

27 

FA 



BEQ 


EXPIN 

IGNORE PLUS 

049A 

81 

2D 



CMP 

A 



049C 

26 

05 



BNE 


CHKNXT 


049E 

73 

00 

59 


COM 


EXPNEG 

SET EXPONENT SIGN 

04A1 

8D 

30 


EXINP 

BSR 


INCHAR 

GET A CHAR 

04A3 

80 

30 


CHKNXT 

SUB 

A 

#'0 


04A5 

2B 

04 



BMI 


SYNEXP 

CHECK FOR <0 

04A7 

81 

09 



CMP 

A 

#9 


04A9 

23 

05 



BLS 


EXPOK 

CHECK FOR >9 

04RB 

8B 

30 


SYNEXP 

ADD 

A 

#'0 

RESTORE ASCII 

04AD 

7E 

04 

ID 


JMP 


CRCHK 

GO CHECK FOR CR 

04B0 

D6 

5A 


EXPOK 

LDA 

B 

EXP 


04B2 

58 




ASL 

B 



04B3 

58 




ASL 

B 



04B4 

58 




ASL 

B 



04B5 

58 




ASL 

B 



04B6 

IB 




ABA 



MERGE 

04B7 

97 

5A 



STA 

A 

EXP 

STUFF EXP 

04B9 

20 

E6 



BRA 


EXINP 


04BB 

96 

5A 


GOTDIG 

LDA 

A 

EXP 
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DRIVER 
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04BD 

84 

F0 


AND 

A 

#*F0 


MASK MS 4 BITS 

04BF 

44 



LSR 

A 




04C0 

16 



TAB 





04C1 

44 



LSR 

A 




04C2 

44 



LSR 

A 




04C3 

IB 



ABA 




MULTIPLY BV 10 

04C4 

D6 

5A 


LDA 

B 

EXP 


GET OLD EXP BACK 

04C6 

C4 

0F 


AND 

B 

#$0F 


GET LS DIGIT 

04C8 

IB 



ABA 




ADD IN 

04C9 

D6 

59 


LDA 

B 

EXPNEG 


CHECK FOR EXP SIGN 

04CB 

27 

01 


BEQ 


POSEXP 



04CD 

40 



NEC 

A 




04CE 

9B 

56 

POSEXP 

ADD 

A 

INEXP 


GET RESULTING EXP. 

04D0 

97 

56 


STA 

A 

INEXP 


STORE IT 

04D2 

39 



RTS 





04D3 

BD 

El AC 

INCHAR 

JSR 


INEEE 


GET A CHAR 

04D6 

81 

20 


CMP 

A 

#$20 



04D8 

27 

F9 


BEQ 


INCHAR 


IGNORE BLANKS 

04DA 

39 



RTS 





04DB 

0D 


PROM 

FCB 


$D; $A.* 0/ 

0 


04DF 

3E 



FCC 


; > ; 



04E1 

04 



FCB 


4 



04E2 

0D 


OVER 

FCB 


$D, $A.* 0; 

0 


04E6 

4F 



FCC 


;OVERFLOW; 


04EE 

04 



FCB 


4 



04EF 

0D 


SVNT 

FCB 


$D, $A, 0/ 

0 


04F3 

53 



FCC 


; SVNT AX; 



04F9 

04 



FCB 


4 



04FA 

0A 


EQUAL 

FCB 


$A, 0, 0 



04FD 

20 



FCC 


.• == ) 



04FF 

04 



FCB 


4 







END 






SVfIBOL TABLE: 


ACEXP 0026 
CHKNXT 04A3 
DONE 03ED 
EXPNEG 0059 
FPSUB 0100 
GOTOP 048C 
INEEE E1AC 
LOHALF 044D 
NOTPT 0414 
OUTEEE E1D1 
OVER 04E2 
PRINT 0345 
PRTMES 034C 
STORIT 0445 
SVNERR 0351 
TOOMAN 03C7 
VSIGN 0033 


RDDOP 

0342 

CNTOFF 

0380 

EQUAL 

04FA 

EXPOK 

04B0 

FULL 

0463 

GOTZER 

042 D 

INEXP 

0056 

MULOP 

0338 

NOTVET 

0461 

OUTHL 

E067 

OVFL 

003A 

PROM 

04DB 

REL 

0492 

STUF 

03F1 

SVNEXP 

04AB 

TSTNXT 

043E 


BEG 

0300 

CRCHK 

04 ID 

EXINP 

04A1 

FPADD 

0103 

GETIN 

041A 

INBIJF 

0050 

INNEXT 

0419 

NQPRT 

03D0 

NOVFL 

0356 

OUTHR 

E06B 

PDATA1 

E07E 

PRTEXP 

03AB 

RSIGN 

0020 

SUBOP 

033D 

SVNT 

04EF 

XSIGN 

002C 


BUF1 

03D8 

CTR 

003D 

EXP 

005A 

FPDIV 

0194 

GOTCNT 

038F 

INCH 

0401 

INPUT 

03EE 

NOTNEG 

0410 

NXTOP 

031B 

OV 

0349 

POS 

0376 

PRTEXS 

03BC 

SIGDIG 

0057 

SUBT 

03C0 

SYNTAX 

005B 

XTEMP 

003F 


BUFTOX 03D3 
DECFLG 0058 
EXPIN 0494 
FPflUL 0180 
GOTDIG 04BB 
INCHAR 04D3 
ISPT 0417 
NOTNXT 0457 
OPER 005C 
OVCHK 035D 
POSEXP 04CE 
PRTLOP 039A 
START 0303 
SVNERF 0488 
TOGGLE 003E 
XTEMP2 0041 
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SCIENTIFIC FUNCTIONS 


>•< 

* 

* COPYRIGHT (C) 1976 BY 

* TECHNICAL SYSTEMS CONSULTANTS 

* BOX 2574 W. LAFAYETTE IN 47986 

* 


* THE TSC SCIENTIFIC FUNCTIONS PACKAGE IS DESIGNED 

* TO UTILIZE THE TSC FLOATING POINT PACKAGE FOR 

* ARITHMETIC PROCESSING. THE ROUTINES IMPLEMENT 

* SOME OF THE MOST USED SCIENTIFIC FUNCTIONS USING 

* THE CORDIC (COORDINATE ROTATION DIGITAL COMPUTER> 

* ALGORITHM; AN OBSCURE BUT USEFUL ALGORITHM BECAUSE 

* IT INVOLVES FEWER MULTIPLICATIONS (BUT MORE ADDITIONS) 

* THAN OTHER APPROXIMATION TECHNIQUES; AND THEREFORE 

* RUNS FASTER. THE TECHNIQUE INVOLVES ROTATING A 

* COORDINATE SYSTEM TO OBTAIN A MAPPING FROM THE FIRST 

* SYSTEM INTO A SECOND COORDINATE SYSTEM WHICH IS 

* ROTATIONALLY DISPLACED FROM THE FIRST. THE ROTATION 

* IS ACCOMPLISHED IN A SEQUENCE OF CAREFULLY CALCULATED 

* DISPLACEMENTS SUCH THAT THE INTERMEDIATE MAPPINGS 

* CAN BE PERFORMED BY MERELY ADDING AND SHIFTING; OR 

* IN THIS CASE; ADDING AND DECREMENTING EXPONENTS. 

* BE REMINDED THAT THIS PACKAGE CONTAINS SUBROUTINES ONLY. 

* THIS PACKAGE ALSO CONTAINS SEVERAL USEFUL CONSTANTS 

* FOR THE USER. AMONG THESE ARE PI; E; AND LN10. SEE 

* THE DATA BLOCKS BELOW. 

* THIS PROGRAM IS DESIGN SUCH THAT THE USER DESIRING 

* ONLY TRIG FUNCTIONS CRN DELETE THE SECTION OF CODE 

* BEYOND 0708 AS THAT CODE IS ONLY USED FOR THE 

* HYPERBOLIC FAMILY OF FUNCTIONS (LOGS; ETC. >. 

* THE PRECISION OF THE APPROXIMATIONS IS LIMITED TO 

* SIX DIGITS (MORE DIGITS WOULD TAKE PROPORTIONATELY 

* LONGER). THE ENTRY ADDRESSES; ARGUMENT AND RESULT 

* LOCATIONS; AND RANGE OF ARGUMENTS ARE SHOWN IN THE 

* TABLES BELOW: 


* OPERATION 

* SIN(X> 

* COS(X> 

* TAN(X) 

* ARCSIN(X) 

* ARCCOS(X) 

* ARCTAN(X) 

* SINH(X> 

* COSH(X) 

* TANH(X) 

* EtX 

* 10tX 

* LN(X> 

* LOG(X) 

* SQRT(X) 

* XTV 

* 


ARGUMENT 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

XSIGN-XEX 

YSIGN-YEX 


RESULT ARGUMENT LIMITS 

RSIGN-ACEXP . 1CXCINF (ABS VAL) 

RSIGN-ACEXP . 1< X CINF (ABS VAL) 

RSIGN-ACEXP . 1< X <INF (ABS VAL) 

RSIGN-ACEXP . 01< X <1. 8 (ABS VAL) 

RSIGN-ACEXP . 01< X <1. 0 (ABS VAL> 

RSIGN-ACEXP . 01< X CINF (RBS VAL) 
RSIGN-ACEXP . 1< X CLN(10) (ABS VAL) 
RSIGN-ACEXP . 1C X <LN(10> (ABS VAL) 
RSIGN-ACEXP . 1C X <LN(10> (ABS VAL) 
RSIGN-ACEXP 0 < X < 227 (ABS VAL) 
RSIGN-ACEXP 0 < X < 98 (ABS VAL) 
RSIGN-ACEXP ANY POSITIVE VALUE 

RSIGN-ACEXP ANY POSITIVE VALUE 

RSIGN-ACEXP ANY POSITIVE VALUE AND 0 

ANY POSITIVE VALUE 
RSIGN-ACEXP ANY VALUE 
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* 1/X 

4« 


XSIGN-XEX RSIGN-ACEXP X NOT ZERO 


* 

* NOTES: 


* 

* 

* 

* 


1 > 


TRIG FUNCTIONS CAN 
THE INDICATOR BVTE 
00 * DEGREE MODE/ 


BE COMPUTED IN DEGREE OR RADIAN MODE 
••MODE" <0076 HEX> SPECIFIES THE MODE 
FF - RADIAN MODE 


* 2) EtX IS THE NUMBER E RAISED TO THE X POWER. 

* 3) LN<X> IS THE NATURAL LOG <BASE E) OF X 

j|t 

* 4) LOG<X> IS THE COMMON LOG <BASE 10> OF X 


* 5> SQRT<X> IS THE SQUARE ROOT OF X 

* 6) XtV IS X RAISED TO THE V POWER. X IS IN XSIGN-XEX 

* V IS IN VSIGN-VEX. 

||C 

* 7) 1/X IS THE INVERSE OF X 

* 8) OVERFLOW IS INDICATED BV "OVFL" <003A HEX) NOT ZERO 


♦ 

♦ 

♦ 

♦ 


9) ILLEGAL OPERATION IS INDICATED BV "NLEGAL" <0072) 
NOT ZERO. THE USER MUST CLEAR NLEGAL BEFORE 
CALLING A PARTICULAR ROUTINE. 


4 * 

* 10) INF ABOVE MEANS . 999999999 X 10T99 
% -INF ABOVE MEANS . 100000000 X 10T-99 


* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

4* 

4« 

4c 

* 


OPERATION 

ENTRV ADDRESS 

SIN 

0460 

COS 

0459 

TAN 

0496 

ARCSIN 

05B7 

ARCCOS 

059C 

ARCTAN 

0647 

SINH 

07BE 

COSH 

07C8 

TANH 

07CF 

ETX 

075F 

10TX 

0751 

LN<X> 

0836 

LOG<X) 

0820 

1/X 

0744 

SORT 

0739 

XtV 

0701 


4< 


4c 

4c 

4c 


EXTERNAL ROUTINES FROM FP PACKAGE 
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0103 


FPADD 

EQU 

$0103 

0100 


FPSUB 

EQU 

$0100 

0180 


FPMULT 

EQU 

$0180 

0194 


FPDIV 

EQU 

$0194 

0262 


XOPTOl 

EQU 

$0262 

0275 


ZCHK 

EQU 

$0275 

014A 


NORM 

EQU 

$014A 

01CD 


BCDADD 

* 

EQU 

$01CD 



* 

* STORAGE 1 

ALSO USED BV FP PACKAGE 

0020 


RSIGN 

EQU 

$0020 

002C 


XSIGN 

EQU 

$002C 

0032 


XEX 

EQU 

$0032 

002D 


XOP 

EQU 

$002D 

0033 


VSIGN 

EQU 

$0033 

0034 


VOP 

EQU 

$0034 

0039 


VEX 

EQU 

$0039 

003A 


OVFL 

EQU 

$003A 

003F 


XTEMP 

EQU 

$003F 

0041 


XTEMP2 

* 

EQU 

$0041 



* 

* TEMPORARV 

STORAGE FOR SCIENTIFIC 

0045 



ORG 

$0045 

0045 


V 

XPRIME 

RMB 

7 

004C 


VPRIME 

RMB 

7 

0053 


ZPRIME 

RMB 

7 

005A 


TPRIME 

RMB 

7 

0061 


ANGLE 

RMB 

7 

0068 


AFACTX 

RMB 

2 

006A 


XOPN 

RMB 

1 

006B 


VOPN 

RMB 

1 

006C 


AOPN 

RMB 

1 

006D 


LSTSGN 

RMB 

1 

O06E 


SIGN 

RMB 

1 

006F 


OPX 

RMB 

2 

0071 


ITER 

RMB 

1 

0072 


NLEGAL 

RMB 

1 

0073 


C4 

RMB 

2 

0075 


QUADRT 

RMB 

1 

0076 

00 

♦ 

MODE 

* 

FCB 

0 SET DEGREE 

0300 


He 

* 

ORG 

$0300 



* 

* FUNDAMENTAL CONSTANTS 



* 


n<i -» 

'i,'! -^- 

0300 

00 

PI 

FCB 

$00s $03/ $14/ $15/ $92/ 

0307 

00 

LN10 

FCB 

$00/ $02/ $30/ $25/ $85/ 

030E 

00 

E 

FCB 

$00/ $02/ $71/ $82/ $81/ 




PAGE 3 





SCIENTIFIC FUNCTIONS PRCKRGE 


TSC RSSEMBLER PAGE 


4 


* MISCELLANEOUS NUMERICAL CONSTANTS 


0315 

00 

NINETY 

FCB 

$00, $09. $00/ $00/ 

$00/ 

$00/ $02 

031C 

00 

C360 

FCB 

$00/ $03/ $60/ $00/ 

$00/ 

$00/ $03 

0323 

00 

TWO 

FCB 

$00/ $02/ $00/ $00/ 

$00/ 

$00/ $01 

032A 

00 

ONE 

FCB 

$00/ $01/ $00/ $00/ 

$00/ 

$00/ $01 

0331 

00 

ZERO 

FCB 

$00/ $00/ $00/ $00/ 

$00/ 

$00/ $00 

0338 

00 

INF 

FCB 

$00/ $09/ $99/ $99/ 

$99/ 

$99/ $63 

033F 

00 

RCON 

FCB 

$00/ $00/ $00/ $00/ 

$05/ 

$00 

0345 

00 

RTODEG 

FCB 

$00/ $05/ $72/ $95/ 

$77/ 

$95/ $02 



* CONSTANTS 

FOR THE ALGORITHM 



034C 

00 

TRIGX 

FCB 

$00/ $06/ $75/ $83/ 

$61/ 

$59/ $00 

0353 

04 

RNGFAC 

FCB 

$04/ $50/ $00/ $00/ 

$00/ 

$02 

0359 

05 


FCB 

$05/ $71/ $05/ $93/ 

$14/ 

$01 

035F 

05 


FCB 

$05/ $72/ $93/ $86/ 

$98/ 

$00 

0365 

05 


FCB 

$05/ $72/ $95/ $76/ 

$04/ 

$FF 

036B 

05 


FCB 

$05/ $72/ $95/ $77/ 

$89/ 

$FE 

0371 

05 


FCB 

$05/ $72/ $95/ $77/ 

$95/ 

$FD 

0377 

05 


FCB 

$05/ $72/ $95/ $77/ 

$95/ 

$FC 

037D 

05 


FCB 

$05/ $72/ $95/ $77/ 

$95/ 

$FB 

0383 

05 


FCB 

$05/ $72/ $95/ $77/ 

$95/ 

$FA 

0389 

00 

HYPCON 

FCB 

$00/ $01/ $11/ $81/ 

$37/ 

$93/ $01 

0390 

01 

HYPANG 

FCB 

$01/ $00/ $33/ $53/ 

$48/ 

$00 

0396 

01 


FCB 

$01/ $00/ $00/ $33/ 

$33/ 

$FF 

039C 

01 


FCB 

$01/ $00/ $00/ $00/ 

$33/ 

$FE 

03A2 

01 


FCB 

$01/ $00/ $00/ $00/ 

$00/ 

$FD 

03A8 

01 


FCB 

$01/ $00/ $00/ $00/ 

$00/ 

$FC 

03AE 

01 


FCB 

$01/ $00/ $00/ $00/ 

$00/ 

$FB 

03B4 

01 


FCB 

$01/ $00/ $00/ $00/ 

$00/ 

$FA 

03BA 

01 


FCB 

$01/ $00/ $00/ $00/ 

$00/ 

$F9 

03C0 

01 

* 

FCB 

$01/ $00/ $00/ $00/ 

$00/ 

$F8 



* 

* SIGN 

DETERMINANTS FOR SINE AND TANGENT 

0030 


SSBVTE 

EQU 

00110000B 



0050 


TSBYTE 

EQU 

01010000B 




** INTEGER 

* THIS ROUTINE INTEGERIZES THE OPERAND POINTED TO BV X 


03C6 

R6 

06 

INTEGER 

LDA 

A 

6/ X 

GET THE EXPONENT 

03C8 

C6 

05 


LDA 

B 

#5 


03CA 

08 



INX 




03CB 

81 

00 

TESTIT 

CMP 

A 

#0 

CHECK FOR 0 

03CD 

2F 

06 


BLE 


GOTIT 


03CF 

08 



INX 



ADVANCE POINTER 

03D0 

5A 



DEC 

B 



03D1 

80 

02 


SUB 

A 

#2 


03D3 

20 

F6 


BRR 


TESTIT 

DO AGAIN 

03D5 

26 

0A 

GOTIT 

BNE 


ALLZER 

CHECK WHICH DIGIT 

03D7 

R6 

00 


LDA 

A 

0/ X 

GET BYTE 

03D9 

84 

F0 


AND 

A 

#$F0 

MASK OUT LOW 

03DB 

R7 

00 


STR 

A 

0/ X 

PUT BACK 

03DD 

08 


NEXDIG 

INX 



ADVANCE POINTER 

03DE 

5A 



DEC 

B 


KICK COUNTER 
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03DF 

27 

04 


BEQ 

INTDON 


03E1 

6F 

00 

ALLZER 

CLR 

0/ X 

SET 0 

03E3 

20 

F8 


BRA 

NEXDIG 


03E5 

A6 

00 

INTDON 

LDA A 

0, X 

GET EXPONENT 

03E7 

2A 

02 


BPL 

ALLOK 


03E9 

6F 

00 


CLR 

0 j X 

SET 0 

03EB 

39 


ALLOK 

* 

RTS 


DONE 


* 

** EXTRCT 

* THIS ROUTINE EXTRACTS FACTORS FROM ARGUMENTS. THE 

* ARGUMENT IS ASSUMED IN XSIGN-XOP-XEX WHILE THE 

* INDEX REGISTER POINTS TO THE FACTOR TO BE EXTRACTED. 

* THE INTEGER NUMBER OF FACTORS IS RETURNED IN ZPRIME. 


03EC 

DF 

73 


EXTRCT STX 

C4 

SAVE FACTOR POINTER 

03EE 

BD 

06 

E5 

JSR 

M0VE3 



03F1 

BD 

01 

94 

JSR 

FPDIV 

GO 

REMOVE FACTOR 

03F4 

CE 

00 

20 

LDX 

#RSIGN 



03F7 

8D 

CD 


BSR 

INTEGER 

GO 

INTEGERIZE 

03F9 

CE 

00 

53 

LDX 

#ZPRIME 



03FC 

BD 

06 

D5 

JSR 

MOVE1 

SAVE THE FACTOR 

03FF 

CE 

00 

2C 

LDX 

#XSIGN 



0402 

BD 

06 

EC 

JSR 

M0VE4 

SAVE OPERAND 

0405 

CE 

00 

2C 

LDX 

#XSIGN 



0408 

BD 

06 

D5 

JSR 

MOVE1 



040B 

DE 

73 


LDX 

C4 

GET 

FACTOR POINTER 

040D 

BD 

06 

E5 

JSR 

M0VE3 

SET 

VOP 

0410 

BD 

01 

80 

JSR 

FPMULT 

GO 

MULTIPLV BACK 

0413 

CE 

00 

33 

LDX 

#VSIGN 



0416 

BD 

06 

D5 

JSR 

MOVE1 

GET 

RESULT 

0419 

CE 

00 

45 

LDX 

#XPRIME 

GET 

OPERAND 

041C 

BD 

06 

DE 

JSR 

M0VE2 



041F 

7E 

01 

00 

JMP 

FPSUB 

GO 

SUBTRACT 


* 

* 


** TRGFAC 

* THIS ROUTINE IS THE FRONT END ROUTINE FOR 

* TRIGONOMETRIC FUNCTIONS. CONVERSION FROM RADIAN 

* TO DEGREE MODE IS DONE HERE. THE ANGLES ARE 

* THEN REDUCED TO LESS THAN 90 DEGREES IN MAG- 

* NITUDE AND MADE POSITIVE. THIS ROUTINE THEN 

* CALLS THE BASIC ROUTINE FOR TRIGONOMETRIC CORDIC. 


0422 

96 

2C 


TRGFAC 

LDA 

A 

XSIGN 

GET THE SIGN 

0424 

97 

6E 



STA 

A 

SIGN 

SAVE THE SIGN 

0426 

7F 

00 

2C 


CLR 


XSIGN 

SET =00 

0429 

96 

76 



LDA 

A 

MODE 

GO GET MODE INDICATOR 

042B 

27 

0F 



BEQ 


DEGREE 

IF 0 / THEN DEGREE 

042D 

CE 

03 

45 


LDX 


#RTODEG 

PT TO CONSTANT 

0430 

BD 

06 

E5 


JSR 


M0VE3 

MOVE TO VOP 

0433 

BD 

01 

80 


JSR 


FPMULT 

GO CONVERT TO DEGREES 

0436 

CE 

00 

2C 


LDX 


#XSIGN 

POINT TO XOP 

0439 

BD 

06 

D5 


JSR 


MOVE1 

MOVE RESULT THERE 

043C 

CE 

03 

1C 

DEGREE 

LDX 


#C360 

POINT TO CONSTANT 

043F 

8D 

AB 



BSR 


EXTRCT 

GO REMOVE FACTORS OF 368 
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0441 

CE 

00 

2C 

LDX 


#XSIGN 

0444 

BD 

06 

D5 

JSR 


MOVE1 

0447 

CE 

03 

15 

LDX 


#NINETV 

044R 

8D 

R0 


BSR 


EXTRCT 

044C 

96 

54 


LDA 

A 

2PRIME+1 

044E 

97 

75 


STR 

A 

QUADRT 

0450 

96 

21 


LDA 

A 

RSIGN+1 

0452 

27 

04 


BEQ 


EXCEPT 

0454 

BD 

04 

DB 

JSR 


TRIGN 

0457 

43 



COM 

A 


0458 

39 



EXCEPT RTS 




MOVE THE RESULT 

REMOVE FACTORS OF 90 
GET QUADRANT 


IF 0/ EXCEPTION 
GO COMPUTE 
SET FLAG 
DONE 


* 

4c 

* 

*>K COS 

* ENTRV POINT FOR COSINE 


0459 

86 

01 


COS 

LDA 

A 

#01 

SET PHASE DIFFERENCE 

045B 

7F 

00 

2C 


CLR 


XSIGN 


045E 

20 

01 


* 

BRA 


SIN0 

GO DO SINE 





* 

** SIN 









* ENTRV 

POINT 

FOR SINE 


0460 

4F 



SIN 

CLR 

A 


SET BYTE 

0461 

36 



SIN0 

PSH 

A 


SAVE 

0462 

8D 

BE 



BSR 


TRGFAC 

GO COMPUTE 

0464 

07 




TPA 



SAVE STATUS 

0465 

33 




PUL 

B 


GET PHASE 

0466 

DB 

75 



ADD 

B 

QUADRT 

ADD TO QUADRANT 

0468 

C4 

03 



AND 

B 

#3 

MASK TO 0-3 

046R 

D7 

75 



STA 

B 

QUADRT 


046C 

06 




TAP 



RESTORE STATUS 

046D 

27 

1C 



BEQ 


SPECL 

IF Z, SPECIAL CASE 

046F 

CE 

00 

4C 


LDX 


#YPRIME 

POINT TO ANSWER 

0472 

56 




ROR 

B 


CHECK QUADRANT 

0473 

24 

03 



BCC 


SIN1 

IF 1 OR 3, THEN OK 

0475 

CE 

00 

45 


LDX 


#XPRIME 

ELSE SWITCH TO COS 

0478 

C6 

30 


SIN1 

LDA 

B 

#SSBYTE 

GET SINE SIGN BYTE 


4c 

4c 

4-4. TRGSGN 

4c THIS ROUTINE SELECTS THE SIGN OF THE RESULT 
4. OF TRIG FUNCTIONS AND THEN GOES TO THE 
4« ROUNDING PROCESSOR. 


047A 

96 

75 

TRGSGN 

LDA 

A 

QUADRT 

GET QUADRANT INFO 

047C 

27 

04 

TESTSG 

BEQ 


GOTBIT 

CHECK Q1 

047E 

58 



ASL 

B 


SHIFT SIGN BYTE 

047F 

4A 



DEC 

A 


COUNT DOWN QUADRANT 

0480 

20 

FA 


BRA 


TESTSG 

DO AGAIN 

0482 

96 

6E 

GOTBIT 

LDA 

A 

SIGN 

RETRIEVE SIGN 

0484 

5D 



TST 

B 


CHECK NEW SIGN 

0485 

2A 

01 


BPL 


TRGDON 

IF POS USE SAME SIGN 

0487 

43 



COM 

A 


ELSE USE OTHER 

0488 

7E 

06 97 

TRGDON 

JMP 


ROUND0 

GO ROUND OFF 
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* 

* 


** SPECL 

* THIS ROUTINE HANDLES THE SPECIAL CASES OF 

* TRIG FUNCTIONS. IE. 0, 90, 180, 270, AND 360 


048B 

CE 

03 

31 

SPECL 

LDX 


#ZERO 

SPECIAL CASE 0 

048E 

56 




ROR 

B 


CHECK QUADRANT 

048F 

24 

E7 



BCC 


SIN1 

IF 1 OR 3 THEN 0 

0491 

CE 

03 

2A 


LDX 


#ONE 

SET FOR 1 

0494 

20 

E2 


* 

BRA 


SIN1 






* 

** TAN 









* ENTRY 

POINT 

FOR TANGENT 

0496 

BD 

04 

22 

TAN 

JSR 


TRGFAC 

GO COMPUTE 

0499 

07 




TPA 



SAVE STATUS 

049R 

D6 

75 



LDA 

B 

QUADRT 

GET QYADRANT INFO 

049C 

06 




TAP 



RESTORE STATUS 

049D 

27 

25 



BEQ 


SPECLT 

IF Z, SPECIAL CASE 

049F 

56 




ROR 

B 


CHECK QUADRANT 

04A0 

24 

0D 



BCC 


TAN1 

IF 1 OR 3 DO TAN 

04A2 

CE 

00 

45 


LDX 


#XPRIME 

ELSE DO COTAN 

04A5 

BD 

06 

DE 


JSR 


M0VE2 

MOVE TO XOP 

04R8 

CE 

00 

4C 


LDX 


#YPRIME 


04RB 

8D 

28 



BSR 


TAN3 

GO DIVIDE 

04AD 

20 

02 



BRA 


TAN4 


04RF 

8D 

IB 


TAN1 

BSR 


TAN2 

GO DIVIDE 

04B1 

CE 

00 

20 

TRN4 

LDX 


4RSIGN 

POINT TO RESULT 

04B4 

C6 

50 



LDA 

B 

#TSBYTE 

GET TAN SIGN BYTE 

04B6 

96 

3A 



LDA 

A 

OVFL 

CHECK OVERFLOW 

04B8 

27 

C0 



BEQ 


TRGSGN 

IF NO GO FIX SIGNS 

04BA 

CE 

03 

38 

INFIN 

LDX 


#INF 

POINT TO INFINITY 

04BD 

86 

FF 



LDA 

0 

#*FF 


04BF 

97 

3R 



STA 

A 

OVFL 

SET OVERFLOW 

04C1 

7E 

06 

C7 

TANS 

JMP 


MOVE0 

SET 

04C4 

56 



SPECLT 

ROR 

B 


CHECK QUADRANT 

04C5 

25 

F3 



BCS 


INFIN 

IF 90 OR 270, THEN INFINITY 

04C7 

CE 

03 

31' 


LDX 


«ZERO 

ELSE 0 

04CA 

20 

F5 



BRA 


TAN5 


04CC 

CE 

00 

4C 

TAN2 

LDX 


#VPRIME 

POINT TO SORE 

04CF 

BD 

06 

DE 


JSR 


M0VE2 

MOVE TO XOP 

04D2 

CE 

00 

45 


LDX 


#XPRIME 

POINT TO X STORE 

04D5 

BD 

@6 

E5 

TRN3 

JSR 


M0VE3 

MOVE TO YOP 

04D8 

7E 

01 

94 

* 

JMP 


FPDIV 

GO DIVIDE 





* 

** TRIGN 








* THIS 

IS THE 

IMPLEMENTATION OF THE ALGORITHM 





* OF TRIGONOMETRIC CORDIC. 

04DB 

CE 

00 

61 

TRIGN 

LDX 


#ANGLE 

POINT TO ANGLE STORE 

04DE 

DF 

6F 



STX 


OPX 

SAVE PTR 

04E0 

BD 

06 

D5 


JSR 


MOVE1 

MOVE ARGUMENT THERE 

04E3 

CE 

03 

4C 


LDX 


#TRIGX 

POINT TO INIT CONST. 

04E6 

BD 

06 

EC 


JSR 


M0VE4 

SET UP 
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04E9 

CE 

03 

4C 


LDX 


#TRIGX 


04EC 

BD 

06 

F3 


JSR 


M0VE5 


04EF 

4F 



TRIG 

CLR 

R 



04F0 

97 

6B 



STR 

R 

VOPN 

SET FOR V ADDITION 

04F2 

97 

6D 



STfl 

R 

LSTSGN 


04F4 

43 




COM 

R 



04F5 

97 

6fl 



STfl 

fl 

XOPN 

SET FOR X SUBTRACTION 

04F7 

97 

6C 



STR 

fl 

flOPN 

SET FOR ANGLE SUBTRACTION 

04F9 

86 

01 



LDR 

R 

#01 


04FB 

97 

71 



STR 

fl 

ITER 

SET ITERATION COUNTER 

04FD 

CE 

03 

52 


LDX 


#fiNGFRC-l 

POINT TO ANGLE FACTOR 

0500 

DF 

68 



STX 


flFRCTX 

STORE POINTER 

0502 

8D 

ID 



BSR 


NEWRN1 

COMPUTE NEW ANGLE 

0504 

BD 

05 

8F 

TRIG1 

JSR 


NEXflNG 

GET TO NEXT FACTOR 

0507 

86 

09 



LDR 

fl 

#9 

SET FOR 9 ITERATIONS 

0509 

36 



TRIG2 

PSH 

R 


SAVE 

050R 

8D 

2B 



BSR 


NEWOPN 

SET NEW OPERATIONS 

050C 

8D 

3D 



BSR 


NEWXV 

CflLCULRTE NEW X AND V 

050E 

BD 

05 

IF 


JSR 


NEWRNG 

COMPUTE NEW ANGLE 

0511 

32 




PUL 

fl 


GET ITERATION 

0512 

4fl 




DEC 

fl 


ONCE DONE 

0513 

26 

F4 



BNE 


TRIG2 

CHECK IF DONE 

0515 

96 

71 


TRIG4 

LDR 

R 

ITER 

GET COUNT 

0517 

4C 




INC 

fl 



0518 

97 

71 



STR 

fl 

ITER 

BUMP ITERATION COUNT 

051R 

81 

09 



CMP 

fl 

#9 

CHECK DONE ? 

051C 

26 

E6 



BNE 


TRIG1 

CHECK IF DONE 

051E 

39 



TRIG5 

* 

RTS 



DONE 





* 

** NEWRNG 








* THIS 

ROUTINE 

CALCULATES THE NEW ANGLE BASED 





* ON THE SIGN 1 

DETERMINANT FOR CORDIC. 

051F 

DE 

68 


NEWRNG 

LDX 


flFRCTX 

GET ANGLE POINTER 

0521 

BD 

06 

E5 

NEWRN1 

JSR 


M0VE3 

MOVE IT 

0524 

CE 

00 

61 


LDX 


#RNGLE 

POINT TO ANGLE ACC. 

0527 

BD 

06 

DE 


JSR 


M0VE2 

SET UP 

052R 

96 

6C 



LDR 

fl 

flOPN 

GET ANGLE OPERATION (+ OR - 

052C 

97 

33 



STR 

fl 

VSIGN 

FIX UP THE SIGN ACCORDINGLY 

052E 

BD 

01 

03 


JSR 


FPflDD 

GO ADD TOGETHER 

0531 

CE 

00 

61 

NEW1 

LDX 


#RNGLE 

POINT TO ANGLE STORE 

0534 

7E 

06 

D5 

* 

JMP 


MOVE1 

RESTORE NEW VALUE 





* 

** NEWOPN 








* THIS 

ROUTINE 

SELECTS NEW OPERATIONS FOR X, V 





* RND 1 

ANGLE 

BASED ON THE 

SIGN DETERMINANT. 





* OPX 1 

HOLDS 

THE POINTER 

TO THE DETERMINANT. 

0537 

DE 

6F 


NEWOPN 

LDX 


OPX 

GET OPERATION POINTER 

0539 

R6 

00 


NEWOP1 

LDR 

fl 

0/ X 

GET NEW SIGN 

053B 

91 

6D 


NEWOP3 

CMP 

fl 

LSTSGN 

COMPARE WITH LAST SIGN 

053D 

27 

0B 



BEQ 


NEW0P2 

IF SAME/ DON'T CHANGE OPER. 

053F 

97 

6D 



STfl 

fl 

LSTSGN 

SAVE FOR NEXT TIME 

0541 

73 

00 

6fl 

NEWOP4 

COM 


XOPN 
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0344 

73 

00 

6B 


COM 


YOPN 


0547 

73 

00 

6C 


COM 


AOPN 

CHANGE OPERATIONS 

054R 

39 



NEW0P2 

* 

RTS 








* 

** NEWXY 








* THIS 

ROUTINE 

CALCULATES THE NEW X AND Y VALUES 





* FOR THE CORDIC ALGORITHM BASED ON THE SIGN 





* DETERMINANTS 

FOR THE INDIVIDUAL QUANTITIES. 

054B 

CE 

00 

45 

NEWXY 

LDX 


#XPRIME 

POINT TO X 

054E 

BD 

06 

DE 


JSR 


M0VE2 

MOVE TO XOP 

0551 

CE 

00 

4C 


LDX 


#VPRIME 

POINT TO Y 

0554 

BD 

06 

E5 


JSR 


M0VE3 

MOVE TO VOP 

0557 

96 

39 



LDA 

A 

VEX 

GET EXPONENT 

0559 

90 

71 



SUB 

A 

ITER 

SCALE FOR ITERATION 

055B 

97 

39 



STR 

A 

VEX 

PUT BACK 

055D 

96 

6A 



LDA 

A 

XOPN 

CHECK X OPERATION 

055F 

2A 

03 



BPL 


NEWXV1 


0561 

73 

00 

33 


COM 


YSIGN 

CHANGE SIGNS 

0564 

BD 

01 

03 

NEWXV1 

JSR 


FPADD 

GO ADD IN 

0567 

CE 

00 

45 


LDX 


#XPRIME 


056R 

BD 

06 

E5 


JSR 


M0VE3 

MOVE TO VOP 

056D 

CE 

00 

4C 


LDX 


#VPRIME 


0570 

BD 

06 

DE 


JSR 


M0VE2 

MOVE TO XOP 

0573 

CE 

00 

45 


LDX 


#XPRIME 


0576 

BD 

06 

D5 


JSR 


MOVE1 

MOVE NEW VALUE 

0579 

96 

39 



LDA 

A 

VEX 

GET EXPONENT 

057B 

90 

71 



SUB 

A 

ITER 

SCALE FOR ITERATION 

057D 

97 

39 



STA 

A 

VEX 

PUT BACK 

057F 

96 

6B 



LDA 

A 

YOPN 

GET OPERATION 

0581 

2A 

03 



BPL 


NEWXY2 


0583 

73 

00 

33 


COM 


YSIGN 


0586 

BD 

01 

03 

NEWXV2 

JSR 


FPADD 

GO COMPUTE NEW VALUE 

0589 

CE 

00 

4C 


LDX 


#YPRIME 


058C 

7E 

06 

D5 

* 

JMP 


MOVE1 

RESTORE NEW VALUE 





* 

** NEXANG 








* THIS 

SECTION 

MOVES THE 

POINTER TO THE NEXT 





* ANGLE 

FACTOR. 



058F 

86 

06 


NEXANG 

LDA 

A 

#6 

LOAD OFFSET 

0391 

9B 

69 



ADD 

A 

AFACTX+1 

ADD IN 

0593 

97 

69 



STA 

A 

AFACTX+1 

SAVE BACK 

0595 

96 

68 



LDA 

A 

AFACTX 

GET MS BYTE 

0597 

89 

00 



ADC 

A 

#0 

ADD IN CARRY 

0599 

97 

68 



STA 

A 

AFACTX 

STORE BACK 

059B 

39 



* 

RTS 








* 

** ARCCOS 








* ENTRY 

POINT FOR ARCCOSINE 

059C 

8D 

21 


ARCCOS 

BSR 


ARC 

GO DO ARC FUNCTION 

059E 

BD 

06 

E5 


JSR 


M0VE3 

MOVE TO YOP 

03A1 

96 

6E 



LDA 

A 

SIGN 

GET SIGN 
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05R3 

97 

33 



STR 

A 

VSIGN 

SET SIGN 

05R5 

CE 

03 

15 


LDX 


#NINETV 


05R8 

BD 

06 

DE 


JSR 


M0VE2 

SET X=90 

05RB 

BD 

01 

00 


JSR 


FPSUB 

SUBTRACT V FROM 90 

05RE 

CE 

00 

20 


LDX 


#RSIGN 


05B1 

R6 

00 



LDA 

A 

0, X 

GET THE SIGN 

05B3 

36 




PSH 

A 


SAVE SIGN 

05B4 

7E 

06 

82 

* 

JMP 


ATRN3 

GO FIX 





* 

** RRCSIN 








* ENTRV 

POINT 

FOR ARCSINE 

05B7 

BD 

06 


RRCSIN 

BSR 


ARC 

GO DO ARC FUNCTION 

05B9 

96 

6E 



LDA 

R 

SIGN 

GET SIGN 

05BB 

36 




PSH 

R 


SAVE 

05BC 

7E 

06 

82 

* 

JMP 


ATAN3 

GO FIX 





* 

** ARC 









* INVERSE TRIGONOMETRIC 

CORDIC 

05BF 

96 

2C 


ARC 

LDA 

R 

XSIGN 

GET SIGN 

05C1 

97 

6E 



STA 

A 

SIGN 

SAVE SIGN 

05C3 

7F 

00 

2C 


CLR 


XSIGN 

SET + 

05C6 

CE 

03 

2fl 


LDX 


#ONE 


05C9 

BD 

03 

EC 


JSR 


EXTRCT 

CHECK >1. 0 

05CC 

CE 

00 

20 


LDX 


#RSIGN 

POINT TO REMAINDER 

05CF 

96 

59 



LDA 

A 

ZPRIME+S 


05D1 

81 

01 



CMP 

A 

#1 

IF SO, ERROR 

05D3 

22 

0C 



BHI 


ARC5 


05D5 

96 

54 



LDA 

A 

ZPRIME+1 

CHECK FACTOR 

05D7 

27 

0F 



BEQ 


ARC3 

ZERO? 

05D9 

81 

01 



CMP 

A 

*1 

CHECK FACTOR 

05DB 

22 

04 



BHI 


RRC5 

TOO MANV? 

05DD 

96 

21 



LDA 

A 

RSIGN+1 

CHECK REMAINDER 

05DF 

27 

03 



BEQ 


RRC4 

IF 1. 0, SPECIAL CASE 

05E1 

7E 

08 

F5 

ARC5 

JMP 


ILLEGL 


05E4 

CE 

03 

15 

ARC4 

LDX 


#NINETV 


05E7 

39 




RTS 



DONE 

05E8 

96 

21 


ARC3 

LDA 

A 

RSIGN+1 

CHECK FOR 0. 0 

05ER 

26 

01 



BNE 


ARC6 


05EC 

39 




RTS 




05ED 

CE 

00 

53 

ARC6 

LDX 


#ZPRIME 


05F0 

BD 

06 

D5 


JSR 


MOVE1 

SAVE THE SCALED ARG. 

05F3 

CE 

03 

52 


LDX 


#ANGFAC-1 


05F6 

DF 

68 



STX 


AFRCTX 

SAVE NEW PTR 

05F8 

BD 

06 

Ffl 


JSR 


M0VE6 

SET ANGLE = 45 DEG. 

05FB 

CE 

03 

4C 


LDX 


#TRIGX 


05FE 

BD 

06 

EC 


JSR 


MOVE4 

SET X 

0601 

CE 

03 

4C 


LDX 


#TRIGX 


0684 

BD 

06 

F3 


JSR 


M0VE5 

SET V 

0607 

86 

01 



LDA 

A 

*01 


0609 

97 

71 



STA 

A 

ITER 

SET UP ITERATION COUNTER 

060B 

8D 

82 


ARC1 

BSR 


NEXANG 

GO GET NEXT ANGLE 

060D 

86 

09 



LDA 

A 

#9 





V 
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060F 

36 



ARC2 

PSH 

A 


SET FOR 9 LOOPS 

0610 

CE 

00 

53 

ARCCHK 

LDX 


42PRIME 

POINT TO SCALED ARG. 

0613 

BD 

06 

DE 


JSR 


M0VE2 


0616 

CE 

00 

4C 


LDX 


4YPRIME 


0619 

BD 

06 

E5 


JSR 


M0VE3 

SET UP FOR COMPARISON 

061C 

BD 

01 

00 


JSR 


FPSUB 

GO SUBTRACT 

061F 

5F 




CLR 

B 



0620 

96 

45 



LDA 

A 

XPRIME 

CHECK SIGN OF X 

0622 

26 

04 



BNE 


ARCC3 

IF MINUS/ REVERSE 

0624 

96 

20 



LDA 

A 

RSIGN 

GET COMPARISON INDICATOR 

0626 

2A 

01 



BPL 


ARCC2 


0628 

53 



ARCC3 

COM 

B 


CHANGE 

0629 

D7 

6B 


ARCC2 

STA 

B 

VOPN 


062B 

D7 

6C 



STA 

B 

AOPN 


062D 

53 




COM 

B 



062E 

D7 

6A 



STA 

B 

XOPN 

FIX OPERATORS 

0630 

BD 

05 

4B 

ARCC5 

JSR 


NEWXV 

COMPUTE X & V CHANGES 

0633 

BD 

05 

IF 


JSR 


NEWRNG 

COMPUTE NEW ANGLE 

0636 

32 




PUL 

A 



0637 

4R 




DEC 

A 


DECREMENT COUNTER 

0638 

26 

D5 



BNE 


ARC2 

IF NOT DONE/ DO AGAIN 

063A 

96 

71 



LDA 

A 

ITER 


063C 

4C 




INC 

A 


KICK ITERATION COUNT 

063D 

97 

71 



STA 

A 

ITER 


063F 

81 

09 



CMP 

A 

#9 

CHECK IF DONE 

0641 

26 

C8 



BNE 


ARC1 


0643 

CE 

00 

61 


LDX 


#RNGLE 

POINT TO ANSWER 

0646 

39 



* 

RTS 



DONE 





* 

** ARCTAN 








* ENTRV 

POINT 

FOR ARCTANGENT 

0647 

96 

2C 


ARCTAN 

LDA 

A 

XSIGN 


0649 

36 




PSH 

A 


SAVE SIGN 

064A 

7F 

00 

2C 


CLR 


XSIGN 

SET SIGN = + 

064D 

CE 

00 

2C 


LDX 


4XSIGN 


@650 

R6 

01 



LDA 

A 

1/ X 

GET FIRST BYTE 

0652 

27 

44 



BEQ 


ROUND 

IF 0/ SPECIAL CASE 

0654 

BD 

06 

F3 


JSR 


M0VE5 

MOVE ARG. TO V 

0657 

CE 

03 

2R 


LDX 


#ONE 


065A 

BD 

06 

EC 


JSR 


M0VE4 

SET X=1 

065D 

CE 

03 

52 


LDX 


#ANGFAC-1 


0668 

DF 

68 



STX 


AFACTX 

STORE PTR 

0662 

BD 

06 

FA 


JSR 


M0VE6 

SET ANGLE=45 

0665 

CE 

00 

4C 


LDX 


#YPRIME 


0668 

DF 

6F 



STX 


OPX 


066A 

4F 




CLR 

A 



066B 

97 

6C 



STA 

A 

AOPN 


066D 

97 

6R 



STA 

A 

XOPN 


066F 

97 

71 



STA 

A 

ITER 


0671 

97 

6D 



STA 

A 

LSTSGN 

SET UP CONSTANTS 

0673 

43 




COM 

A 



0674 

97 

6B 



STA 

A 

VOPN 

SET V SUBTRACT 

0676 

BD 

05 

4B 


JSR 


NEWXV 

GET INITIAL X AND V 


11 
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0679 

7C 

00 

71 


INC 

ITER 

SET COUNTER 

067C 

BD 

05 

04 


JSR 

TRIG1 

GO COMPUTE 

067F 

CE 

00 

61 


LDX 

#RNGLE 

POINT TO RESULT 

0682 

96 

76 


ATAN3 

LDR A 

MODE 

CHECK MODE 

0684 

27 

0F 



BEQ 

ATRN5 

IF DEGREE/ DONE 

0686 

BD 

06 

DE 


JSR 

M0VE2 

PUT ANSWER IN XOP 

0689 

CE 

03 

45 


LDX 

#RTODEG 


068C 

BD 

06 

E5 


JSR 

M0VE3 

SET V* CONV. CONST 

068F 

BD 

01 

94 


JSR 

FPDIV 

GO SCALE 

0692 

CE 

00 

20 


LDX 

#RSIGN 

POINT TO ANSWER 

0695 

20 

01 


ATAN5 

BRA 

ROUND 



* 

* 

** ROUND 

* THIS IS THE 

* CONSTANT IS 


ROUNDING PROCESSOR. 
RCON. 


THE ROUNDING 


0697 

36 



ROUND© 

PSH 

A 


SAVE THE SIGN 

0698 

A6 

06 


ROUND 

LDA 

A 

6/ X 

GET EXPONENT 

069A 

36 




PSH 

A 


SAVE 

069B 

BD 

06 

C7 


JSR 


MOVE0 

MOVE TARGET TO AC 

069E 

CE 

03 

3F 

ROUND1 

LDX 


#RCON 


06A1 

8D 

42 



BSR 


M0VE3 

MOVE ROUNDING CONSTANT TO VOP 

06A3 

BD 

01 

CD 


JSR 


BCDADD 

GO ADD IN ROUNDING 

06R6 

32 




PUL 

A 


GET EXPONENT 

06A7 

97 

26 



STA 

A 

RSIGN+6 

INSTALL 

06R9 

32 




PUL 

A 


GET SIGN 

06RA 

97 

20 



STA 

A 

RSIGN 

SET SIGN 

06RC 

96 

24 



LDA 

A 

RSIGN+4 


06AE 

84 

F0 



AND 

A 

#*F0 

MASK OFF 

06B0 

97 

24 



STA 

A 

RSIGN+4 

STORE BACK 

06B2 

4F 




CLR 

A 



06B3 

97 

25 



STA 

A 

RSIGN+5 

ZERO OUT LAST BVTE 

06B5 

BD 

01 

4R 


JSR 


NORM 

GO NORMALIZE 

06B8 

5F 




CLR 

B 



06B9 

96 

26 



LDR 

A 

RSIGN+6 

GET EXPONENT 

06BB 

81 

63 



CMP 

A 

#*63 

CHECK EXPONENT FOR >63 

06BD 

2E 

04 



BGT 


ERROR 


06BF 

81 

9C 



CMP 

A 

#*9C 

CHECK <-63 

06C1 

2E 

01 



BGT 


ANSOK 


06C3 

53 



ERROR 

COM 

B 



06C4 

D7 

3A 


ANSOK 

STA 

B 

OVFL 

SET OVERFLOW 

06C6 

39 



* 

* 

RTS 



DONE 


** THIS SECTION OF CODE PERFORMS ALL OF THE 

* OPERAND TRANSPORTATION. 

* 


SAVE SOURCE PTR. 
POINT TO RESULT 
SAVE DESTINATION PTR 






* MOVE 

X TO 

RESULT 

06C7 

DF 

41 


MOVE0 

STX 

XTEMP2 

06C9 

CE 

00 

20 


LDX 

#RSIGN 

06CC 

DF 

3F 


MOVE01 

STX 

XTEMP 

06CE 

DE 

41 



LDX 

XTEMP2 

06D0 

C6 

07 


MOVE02 

LDA 

B #7 

06D2 

7E 

02 

62 


JMP 

XOPTOl 


SET FOR 
MOVE IT 


7 BVTES 
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* 

* MOVE RESULT TO X 


06D5 

DF 

3F 


MOVE1 

STX 

XTEMP 

SAVE DESTINATION PTR 

06D7 

CE 

00 

20 


LDX 

ttRSIGN 

POINT TO RESULT 

06DR 

DF 

41 



STX 

XTEMP2 

SET SOURCE PTR 

06DC 

20 

F2 



BRA 

MOVE02 






* MOVE X TO 

XOP 


06DE 

DF 

41 


M0VE2 

STX 

XTEMP2 

SAVE SOURCE PTR 

06E0 

CE 

00 

2C 


LDX 

#XSIGN 

POINT TO DESTINATION 

06E3 

20 

E 7 



BRA 

MOVE01 






* MOVE X TO 

VOP 


06E5 

DF 

41 


M0VE3 

STX 

XTEMP2 

SAVE SOURCE PTR 

06E7 

CE 

00 

33 


LDX 

#VSIGN 

POINT TO DESTINATION 

06EA 

20 

E0 



BRA 

MOVE01 






* MOVE X TO 

XPRIME 


06EC 

DF 

41 


M0VE4 

STX 

XTEMP2 

SAVE SOURCE PTR 

06EE 

CE 

00 

45 


LDX 

4XPRIME 

POINT TO DESTINATION 

06F1 

20 

D9 



BRA 

MOVE01 

GO MOVE 





* MOVE X TO 

VPRIME 


06F3 

DF 

41 


M0VE5 

STX 

XTEMP2 

SAVE SOURCE POINTER 

06F5 

CE 

00 

4C 


LDX 

#VPRIME 

POINT TO DESTINATION 

06F8 

20 

D2 



BRA 

MOVE01 

MOVE IT 





* MOVE X TO 

ANGLE 


06FA 

DF 

41 


M0VE6 

STX 

XTEMP2 

SAVE SOURCE 

06FC 

CE 

00 

61 


LDX 

#ANGLE 

POINT 

06FF 

20 

CB 


* 

BRA 

MOVE01 






* 

** XTOV 







* THIS 

SECTION PERFORMS 

THE FUNCTION X**V 





* OR X 

TO V POWER 


0701 

CE 

00 

33 

XTOV 

LDX 

#VSIGN 

POINT TO POWER 

0704 

8D 

Cl 



BSR 

MOVE0 


0706 

CE 

00 

5A 

XTOV0 

LDX 

#TPRIME 


0709 

8D 

CA 



BSR 

MOVE1 

SAVE IN TPRIME 

070B 

CE 

00 

2C 


LDX 

#XSIGN 

POINT TO ARG 

070E 

A6 

01 



LDA A 

1, X 

GET MS BYTE 

0710 

26 

03 



BNE 

XT0V3 


0712 

7E 

07 

C3 


JMP 

SINH1 


0715 

BD 

08 

36 

XT0V3 

JSR 

NATLOG 

TAKE LN<X> 

0718 

96 

72 



LDA A 

NLEGAL 

CHECK ILLEGAL OPER. 

071A 

27 

01 



BEQ 

XT0V2 


071C 

39 



XTOV1 

RTS 



071D 

96 

3fl 


XT0V2 

LDA A 

OVFL 

CHECK OVERFLOW 

071F 

26 

FB 



BNE 

XTOV1 

- 

0721 

CE 

00 

2C 


LDX 

#XSIGN 


0724 

8D 

AF 



BSR 

MOVEl 

MOVE RESULT TO X 

0726 

CE 

00 

5A 


LDX 

#TPRIME 


0729 

8D 

BA 



BSR 

M0VE3 

MOVE POWER TO V 


13 
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072B 

BD 

01 

80 


JSR 

FPMULT 

GO MULTIPLY 

072E 

96 

3R 



LDA A 

OVFL 

CHECK OVERFLOW 

0730 

26 

Efl 



BNE 

XTOV1 


0732 

CE 

00 

2C 


LDX 

#XSIGN 


0735 

8D 

9E 



BSR 

MOVE1 

MOVE RESULT BACK TO X 

0737 

20 

26 


* 

BRA 

EXP 

GO EXPONENTIATE 





* 

** SORT 








* THIS 

ROUTINE 

IMPLEMENTS SQRT(X) 





* RS SPECIAL CASE OF X**Y 

0739 

CE 

03 

31 

SORT 

LDX 

#ZERO 


073C 

8D 

89 



BSR 

MOVE0 


073E 

86 

05 



LDA A 

#$05 


0740 

97 

21 



STA A 

RSIGN+1 

SET RESULT TO 0. 5 

0742 

20 

C2 


* 

BRA 

XTOV0 






* 

** INVERS 







* THIS 

ROUTINE 

IMPLEMENTS 1/X 

0744 

CE 

00 

2C 

INVERS 

LDX 

#XSIGN 

POINT TO ARG 

0747 

8D 

9C 



BSR 

M0VE3 

MOVE TO VOP 

0749 

CE 

03 

2fl 


LDX 

#ONE 

POINT TO ONE 

074C 

8D 

90 



BSR 

M0VE2 

SET XOP=l 

074E 

7E 

01 

94 

* 

JMP 

FPDIV 

GO DIVIDE 





* 

** RLOG10 







* ENTRV 

POINT 1 

FOR COMMON 

ANTILOG <OR 10**X> 

0751 

CE 

03 

07 

RLOG10 

LDX 

#LN10 

POINT TO CONST 

0754 

8D 

8F 



BSR 

M0VE3 

SET Y=LN10 

0756 

BD 

01 

80 


JSR 

FPMULT 

GO SCALE 

0759 

CE 

00 

2C 


LDX 

#XSIGN 


075C 

BD 

06 

D5 

* 

JSR 

MOVE1 

MOVE SCALED ARGUMENT 





* 

** EXP 








* IMPLEMENTATION OF E**X 

(EXPONENTIATION) 

075F 

96 

32 


EXP 

LDA A 

XSIGN+6 

GET EXPONENT OF ARG 

0761 

81 

03 



CMP A 

#3 

CHECK FOR OVFL 

0763 

2F 

03 



BLE 

EXP1 

IF SO, OK 

0765 

7E 

04 

BR 

EXP11 

JMP 

INFIN 


0768 

81 

F9 


EXP1 

CMP A 

#$F9 

CHECK <-6 

076R 

2E 

06 



BGT 

EXP2 


076C 

CE 

03 

2fl 

EXP10 

LDX 

#ONE 


076F 

7E 

06 

C7 

EXP12 

JMP 

MOVE0 

SET ANSWER 

0772 

CE 

03 

07 

EXP2 

LDX 

#LN10 


0775 

BD 

03 

EC 


JSR 

EXTRCT 

REMOVE FACTORS OF LN10 

0778 

CE 

00 

2C 


LDX 

#XSIGN 


077B 

BD 

06 

D5 


JSR 

MOVE1 

MOVE REMAINDER TO XOP 

077E 

BD 

07 

D9 


JSR 

HVP 

GO DO HYPERBOLIC CORDIC 

0781 

CE 

00 

45 


LDX 

#XPRIME 


0784 

BD 

06 

DE 


JSR 

M0VE2 

SET UP XOP 

0787 

CE 

00 

4C 


LDX 

#VPRIME 
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078R 

BD 

06 

E5 


JSR 


M0VE3 

SET UP VOP 

078D 

BD 

01 

03 


JSR 


FPflDD 

EXP=SINH+COSH 

0790 

D6 

59 



LDR 

B 

ZPRIME+6 

GET FACTOR 

0792 

Cl 

02 



CMP 

B 

#2 

CHECK EXPONENT 

0794 

23 

09 



BLS 


EXP21 


0796 

CE 

03 

31 


LDX 


#ZERO 


0799 

96 

53 



LDR 

fi 

ZPRIME 

GET SIGN 

079B 

2B 

D2 



BMI 


EXP12 

IF MINUS THEN 0 

079D 

20 

C6 



BRR 


EXP11 

ELSE INFINITY 

079F 

96 

54 


EXP21 

LDR 

fl 

ZPRIME+1 


07R1 

56 




ROR 

B 



07R2 

25 

0C 



BCS 


EXPOK1 


07R4 

48 




RSL 

R 



07R5 

16 




TAB 




07R6 

48 




RSL 

R 



07R7 

48 




RSL 

fl 



07R8 

IB 




RBfl 



MULTIPLY BV 10 

07R9 

D6 

55 



LDR 

B 

ZPRIME+2 

GET ONES 

07RB 

54 




LSR 

B 



07RC 

54 




LSR 

B 



07RD 

54 




LSR 

B 



07RE 

54 




LSR 

B 


MOVE TO LS HALF 

07RF 

IB 




RBfl 



MERGE 

07B0 

D6 

53 


EXPOK1 

LDR 

B 

ZPRIME 

GET SIGN 

07B2 

27 

01 



BEQ 


ADDON 

IF + JUST ADD 

07B4 

40 




NEG 

fl 


CHANGE SIGN 

07B5 

9B 

26 


RDDON 

RDD 

fl 

RSIGN+6 

ADD IN 

07B7 

97 

26 



STfl 

fl 

RSIGN+6 

PUT BACK 

07B9 

CE 

00 

20 


LDX 


4RSIGN 

POINT TO RESULT 

07BC 

20 

05 


* 

* 

* 

** SINH 

BRR 


SINH1 

GO ROUND 





* ENTRV 

POINT 

FOR HVPERBOLIC SINE 

07BE 

8D 

19 


SINH 

BSR 


HVP 

CALCULATE 

07C0 

CE 

00 

4C 


LDX 


#VPRIME 

POINT TO ANSWER 

07C3 

R6 

00 


SINH1 

LDR 

fl 

0, X 

GET SIGN 

07C5 

7E 

06 

97 

* 

* 

** COSH 

JMP 


ROUND0 

GO ROUND 





* ENTRV 

POINT 

FOR HVPERBOLIC COSINE 

07C8 

8D 

0F 


COSH 

BSR 


HVP 

CALCULATE HVPERBOLIC 

07CR 

CE 

00 

45 


LDX 


4XPRIME 

POINT TO ANSWER 

07CD 

20 

F4 


* 

★ 

** TRNH 

BRR 


SINH1 

MOVE IT 





* ENTRV 

POINT 

FOR HVPERBOLIC TANGENT 

07CF 

8D 

08 


TRNH 

BSR 


HVP 

GO CALCULATE 

07D1 

BD 

04 

CC 


JSR 


TRN2 

TANH=SINH/COSH 

07D4 

CE 

00 

20 


LDX 


#RSIGN 

POINT TO RESULT 

07D7 

20 

Efl 



BRR 


SINH1 

GO ROUND 


PAGE 
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* 

* 


’t'* HVP 

* THIS ROUTINE IMPLEMENTS HVPERBOLIC CORDIC. 


07D9 

CE 

03 

89 

HVP 

LDX 


#HYPCON 

POINT TO CONSTANT 

07DC 

BD 

06 

EC 


JSR 


M0VE4 

SET UP XPRIME 

07DF 

CE 

03 

31 


LDX 


#ZERO 


07ES 

BD 

06 

F3 


JSR 


MOVES 

SET YPRIME=0 

07E5 

CE 

00 

2C 


LDX 


#XSIGN 

POINT TO ARGUMENT 

07E8 

BD 

06 

FA 


JSR 


M0VE6 

MOVE TO ANGLE 

07EB 

CE 

00 

61 


LDX 


#ANGLE 


07EE 

DF 

6F 



STX 


OPX 

SET OPERATION DETERMINANT 

07F0 

CE 

03 

8F 


LDX 


#HYPANG-1 


07F3 

DF 

68 



STX 


AFACTX 

SET ANGLE FACTOR POINTER 

07F5 

4F 




CLR 

A 



07F6 

97 

6D 



STA 

A 

LSTSGN 

SET LAST SIGN 

07F8 

97 

6A 



STA 

A 

XOPN 

SET FOR ADD ON X 

07FA 

97 

6B 



STA 

A 

VOPN 

SET FOR ADD ON V 

07FC 

43 




COM 

A 



07FD 

97 

6C 



STA 

A 

AOPN 

SET FOR SUB. ON ANGLE 

07FF 

86 

01 


HVP0 

LDA 

A 

#1 


0801 

97 

71 



STA 

A 

ITER 

SET ITERATION COUNTER 

0803 

86 

16 


HVP1 

LDA 

A 

#22 


0805 

36 



HVP2 

PSH 

A 



0806 

BD 

05 

37 


JSR 


NEWOPN 

SET NEW OPERATIONS 

0809 

BD 

05 

4B 


JSR 


NEWXY 

CALCULATE NEW X AND V 

080C 

BD 

05 

IF 


JSR 


NEWANG 

CALCULATE NEW ANGLE 

080F 

3S 




PUL 

A 



0810 

4A 




DEC 

A 


DECREMENT COUNTER 

0811 

26 

F2 



BNE 


HVP2 


0813 

BD 

05 

8F 


JSR 


NEXANG 

POINT TO NEXT FACTOR 

0816 

96 

71 



LDA 

A 

ITER 


0818 

4C 




INC 

A 


KICK ITERATION COUNT 

0819 

97 

71 



STA 

A 

ITER 


081B 

81 

0A 



CMP 

A 

#10 

CHECK IF DONE 

081D 

26 

E4 



BNE 


HVP1 

LOOP 

081F 

39 



* 

RTS 



DONE 





* 

** LOG10 








* IMPLEMENTATION OF COMMON LOGARITHM (BASE 10> 

08S0 

8D 

14 


LOG10 

BSR 


NATLOG 

GO DO NATLOG 

08SS 

CE 

00 

2C 


LDX 


#XSIGN 


08S5 

BD 

06 

D5 


JSR 


MOVE1 

MOVE RESULT TO X 

08S8 

CE 

03 

07 


LDX 


#LN10 


08SB 

BD 

06 

E5 


JSR 


MOVE3 

SET V= LN10 

08SE 

BD 

01 

94 


JSR 


FPDIV 

SCALE 

0831 

CE 

00 

20 

LOG10A 

LDX 


#RSIGN 

POINT TO RESULT 

0834 

20 

8D 



BRA 


SINH1 

GO ROUND 


* 

* 

** NATLOG 

* IMPLEMENTATION OF NATURAL LOGARITHM <BASE E> 
0836 CE 00 SC NATLOG LDX #XSIGN 
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0839 

BD 

06 

F3 


JSR 


083C 

CE 

03 

2R 


LDX 


083F 

BD 

06 

E5 


JSR 


0842 

BD 

01 

00 


JSR 


0845 

96 

21 



LDA 

A 

0847 

26 

06 



BNE 


0849 

CE 

03 

31 


LDX 


084C 

7 E 

07 

C3 


JMP 


084F 

CE 

03 

2A 

NATL2 

LDX 


0852 

BD 

06 

DE 


JSR 


0855 

96 

52 



LDA 

A 

0857 

2R 

04 



BPL 


0859 

40 




NEG 

A 

085A 

73 

00 

2C 


COM 


085D 

C6 

FF 


SIGNOK 

LDA 

B 

085F 

5C 



SUBT 

INC 

B 

0860 

80 

0A 



SUB 

A 

0862 

24 

FB 



BCC 


0864 

8B 

0R 



ADD 

A 

0866 

97 

2D 



STA 

A 

0868 

5D 




TST 

B 

0869 

27 

0C 



BEQ 


0868 

D7 

2D 



STA 

B 

086D 

48 




ASL 

A 

086E 

48 




ASL 

A 

086F 

48 




ASL 

A 

0870 

48 




ASL 

A 

0871 

97 

2E 



STA 

fl 

0873 

86 

02 



LDA 

A 

0875 

97 

32 



STA 

A 

0877 

CE 

03 

07 

FACTOK 

LDX 


087A 

BD 

06 

E5 


JSR 


087D 

BD 

01 

80 


JSR 


0880 

CE 

00 

53 


LDX 


0883 

BD 

06 

D5 


JSR 


0886 

96 

4D 



LDA 

A 

0888 

27 

6B 



BEQ 


088R 

CE 

00 

4C 


LDX 


088D 

A6 

00 


INVHVP 

LDA 

A 

088F 

2B 

64 



BMI 


0891 

6F 

06 



CLR 


0893 

BD 

06 

DE 


JSR 


0896 

CE 

03 

2A 


LDX 


0899 

BD 

06 

E5 


JSR 


089C 

BD 

01 

03 


JSR 


089F 

CE 

00 

45 


LDX 


08A2 

BD 

06 

D5 


JSR 


08R5 

CE 

00 

4C 


LDX 


08A8 

BD 

06 

DE 


JSR 


08AB 

CE 

03 

2A 


LDX 


08AE 

BD 

06 

E5 


JSR 


08B1 

BD 

01 

00 


JSR 


08B4 

CE 

00 

4C 


LDX 


08B7 

DF 

6F 



STX 



TSC ASSEMBLER PAGE 


MOVES 

SAVE IN VPRIME 

#ONE 

M0VE3 

SET V=1 

FPSUB 

SUBTRACT 1 

RSIGN+1 

GET MS BVTE 

NATL2 

#ZERO 

SET ZERO 

SINH1 

GO FIX 

#ONE 

M0VE2 

USE CLEAR TRICK 

VPRIME+6 

GET ARGS EXP. 

SIGNOK 

IF + NO TRICKS 

XSIGN 

IF MINUS MAKE PLUS 
CHANGE SIGNS TO COMP. 

#$FF 

SET -1 

#10 

KICK COUNTER 

TAKE OUT TEN 

SUBT 

IF NO BORROW OK 

#10 

ELSE ADD BACK 

XSIGN+1 

STORE ONES 

FACTOK 

CHECK IF HAVE TENS 

IF NOT, ALL DONE FOOLING 

XSIGN+1 

SAVE ONES 


XSIGN+2 

GET TO MS HALF 

SAVE ONES 

#02 

SET EXP=2 

XEX 

STORE IT 

#LN10 

M0VE3 

SET Y=LN10 

FPMULT 

GO SCALE 

#ZPRIME 

MOVE1 

SAVE SCALING FACTOR 

VPRIME+1 

CHECK FOR ZERO 

ILLEGL 

IF 0 ERROR 

#YPRIME 

0, X 

GET SIGN 

ILLEGL 

IF NEGATIVE, ILLEGAL 

6, X 

SET EXP = 0 

M0VE2 

RETRIEVE ARGUMENT 

#ONE 

M0VE3 

SET Y=1 

FPADD 

#XPRIME 

MOVE1 

SET X=ARG+1 

#YPRIME 

M0VE2 

SET XOP=ARG 

#ONE 

M0VE3 

SET YOP=l 

FPSUB 

#YPRIME 

OPX 

SET DECISION PTR 
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08B9 

BD 

06 

D5 


JSR 


MOVE1 

SET 

V=ARG-1 

08BC 

CE 

03 

31 


LDX 


#ZERO 



08BF 

BD 

06 

FA 


JSR 


M0VE6 

SET 

ANG=0 

08C2 

4F 




CLR 

A 




08C3 

97 

6C 


) 

STA 

A 

AOPN 



08C5 

97 

6D 



STA 

A 

LSTSGN 



08C7 

43 




COM 

A 




08C8 

97 

6B 



STA 

A 

VOPN 

SET 

UP OPERATIONS 

08CA 

97 

6A 



STA 

A 

XOPN 



08CC 

CE 

03 

8F 


LDX 


#HYPANG-1 



08CF 

DF 

68 



STX 


AFACTX 

SET 

CONSTANT PTR. 

08D1 

BD 

07 

FF 


JSR 


HVP0 

GO i 

COMPUTE 

08D4 

CE 

00 

61 


LDX 


#ANGLE 



08D7 

BD 

06 

D5 


JSR 


MOVE1 

SET 

X=RESULT 

08DA 

CE 

03 

23 


LDX 


#TWO 



08DD 

BD 

06 

E5 


JSR 


M0VE3 

SET 

Y= 2 

08E0 

BD 

01 

80 


JSR 


FPMULT 

GO 

SCALE 

08E3 

CE 

00 

2C 


LDX 


#XSIGN 



08E6 

BD 

06 

D5 


JSR 


MOVE1 

GET 

RESULT 

08E9 

CE 

00 

53 


LDX 


#ZPRIME 



08EC 

BD 

06 

E5 


JSR 


M0VE3 

SET 

V= ADDON 

08EF 

BD 

01 

03 


JSR 


FPADD 

GO 1 

ADD IT ON 

08F2 

7E 

08 

31 

* 

JMP 


LOG10A 

GO 1 

ROUND 





* 

** THIS 

ROUTINE SETS ILLEGAL 

OPERATION INDICATOR 

08F5 

86 

FF 


ILLEGL 

LDA 

A 

#f FF 



08F7 

97 

72 



STA 

A 

NLEGAL 

SET 

NOT LEGAL 

08F9 

39 




RTS 



DONE 


18 









SCIENTIFIC FUNCTIONS PACKAGE TSC ASSEMBLER PAGE 


SVMBOL TABLE: 


ADDON 

07B5 

AFACTX 

0068 

RLLOK 

03EB 

ALLZER 

03E1 

ALOG10 

0751 

ANGFAC 

0353 

ANGLE 

0061 

ANSOK 

06C4 

AOPN 

006C 

ARC 

05BF 

ARC1 

060B 

ARC2 

060F 

RRC3 

05E8 

ARC4 

05E4 

RRC5 

05E1 

ARCS 

05ED 

ARCC2 

0629 

ARCC3 

0628 

ARCC5 

0630 

ARCCHK 

0610 

ARCCOS 

059C 

ARCSIN 

05B7 

RRCTAN 

0647 

ARGSTR 

0960 

ATAN3 

0682 

ATAN5 

0695 

BCDADD 

01CD 

BYTE 

E055 

C360 

031C 

C4 

0073 

COS 

0459 

COSH 

07C8 

DEGREE 

043C 

E 

030E 

ERROR 

06C3 

EXCEPT 

0458 

EXP 

075F 

EXP1 

0768 

EXP10 

076C 

EXP11 

0765 

EXP12 

076F 

EXP2 

0772 

EXP21 

079F 

EXPOK1 

07B0 

EXTRCT 

03EC 

FACTOK 

0877 

FPADD 

0103 

FPDIV 

0194 

FPMULT 

0180 

FPSUB 

0100 

GOTBIT 

0482 

GOTIT 

03D5 

HYP 

07D9 

HYP0 

07FF 

HYP1 

0803 

HVP2 

0805 

HYPRNG 

0390 

HYPCON 

0389 

ILLEGL 

08F5 

INEEE 

E1AC 

INF 

0338 

INFIN 

04BA 

INTDON 

03E5 

INTEGE 

03C6 

INVERS 

0744 

INVHVP 

088D 

ITER 

0071 

LN10 

0307 

LOAD 

090E 

LOG10 

0820 

LOG10A 

0831 

LSTSGN 

006D 

MODE 

0076 

MOVE0 

06C7 

MOVE01 

06CC 

MOVE02 

06D0 

MOVE1 

06D5 

M0VE2 

06DE 

M0VE3 

06E5 

MOVE4 

06EC 

M0VE5 

06F3 

M0VE6 

06FA 

NATL2 

084F 

NATLOG 

0836 

NEW1 

0531 

NEWAN1 

0521 

NEWANG 

051F 

NEWOP1 

0539 

NEW0P2 

054A 

NEW0P3 

053B 

NEWOP4 

0541 

NEWOPN 

0537 

NEWXY 

054B 

NEWXV1 

0564 

NEWXY2 

0586 

NEXANG 

058F 

NEXDIG 

03DD 

NINETY 

0315 

NLEGAL 

0072 

NORM 

014A 

ONE 

032A 

OPS 

096F 

OPX 

006F 

OUTHL 

E067 

OUTHR 

E06B 

OUTS 

E0CC 

OVFL 

003A 

PBYTE 

0958 

PDRTA1 

E07E 

PI 

0300 

PRT 

0935 

QUADRT 

007‘5 

RCON 

033F 

ROUND 

0698 

ROUND0 

0697 

ROUND1 

069E 

RSIGN 

0020 

RTODEG 

0345 

SIGN 

006E 

SIGNOK 

085D 

SIN 

0460 

SIN0 

0461 

SIN1 

0478 

SINE 

097D 

SINH 

07BE 

SINH1 

07C3 

SPECL 

048B 

SPECLT 

04C4 

SORT 

0739 

SSBYTE 

0030 

START 

0900 

SUBT 

085F 

TABOFF 

092E 

TAN 

0496 

TAN1 

04AF 

TAN2 

04CC 

TAN3 

04D5 

TAN4 

04B1 

TANS 

04C1 

TANH 

07CF 

TESTIT 

03CB 

TESTSG 

047C 

TPRIME 

005A 

TRGDON 

0488 

TRGFAC 

0422 

TRGSGN 

047A 

TRIG 

04EF 

TRIG1 

0504 

TRIG2 

0509 

TRIG4 

0515 

TRIG5 

051E 

TRIGN 

04DB 

TRIGX 

034C 

TSBYTE 

0050 

TWO 

0323 

XEX 

0032 

XOP 

002D 

XOPN 

006A 

XOPTOl 

0262 

XPRIME 

0045 

XSIGN 

002C 

XTEMP 

003F 

XTEMP2 

0041 

XTOY 

0701 

XTOY0 

0706 

XTOV1 

071C 

XT0Y2 

071D 

XT0Y3 

0715 

YEX 

0039 

VOP 

0034 

VOPN 

ZPRIME 

006B 

0053 

YPRIME 

004C 

YSIGN 

0033 

ZCHK 

0275 

ZERO 

0331 


19 






20 


SI 0400760085 

SI13030000031415926501000230?58509010002DD 
S11303107182818301000900000000020003 6000 73 
S11303 2000000300020000000001000100000000C2 
S113033001000000000000000009999999996300E8 
S1130340000000050000057295779502000675838C 
S11303506159000450000000020571059314010561 
SI13036072938698000572957604FF0572957789D5 
1130370FE0572957795F00572957795FC05729546 
11303807795FB0572957795FA00011181379301F2 
11303900100335348000100003333FF0100000023 
SI1303A033FE0100000000FD0100000000FC01001C 
S11303BOOOOOOOFB0100000000FA0100000000F949 
S11303C00100000000F8A606C6050881002F0608F3 
S11303D05A800220F6260AA60084FOA700085A27AD 
S11303E0046F0020F8A6002A026F0039DF738D06EF 
S11303FOE5BD0194CE00208DCDCE0053PD06D5CEF3 
S1130400002CBD06ECCE002CBD06D5DE73BD06E582 
SI1304108D0180CE0033PD06D5CE004 5BD06DE7EC F 
S11304200100962C976E7F002C9676270FCE0345FD 
S1130430BD06E5BD0180CE002CBD06D5CE031C8DC6 
SI130440ABCE002CBD06D5CE03158DA09654977562 
S113045096212704BD04DB433986017F002C20014B 
S11304604F368DBE0733DB75C403D77506271CCE04 
S1130470004C562403 CE0045C63096752704584 ACE 
S113048020FA966E5D2A01437E0697CE03315624E8 
S1130490E7CE032A20E2B0042207D6750627255697 
S11304A0240DCE0045BD060ECE004C8D2820028DE5 
SI1304B01BCE0020C650963A27C0CE033886FF973D 
S11304C03A7E06C75625F3CE033120F5CE004CBD47 
S11304D006DECE0045BD06E57E0194CE0061DF6FE9 
S11304E08D06D5CE034C9D06ECCE034CBD06F34F82 
S11304F0976B976D43976A976C86019771CE0352F9 
S1130500DF688D10BD058F8609368D2B803DBD059C 
S11305101 » r 324A26F496714C9771810926E639DE1 A 
S113052068B006E5CE0061BD06DE966C9733BD015D 
S113053003CE00617E06D5DE6FA600916D270B9772 
S11305406D73006A73006B73006C39CE0045BD0691 
Si130550DECE004CBD06E5963990719739966A2A2D 
S113056003730033BD0103CE004 5BD06E5 CEO04C48 
Si130570BD06DECE00458D06D596399071973996F5 
S11305806B2A03730033BD0103CE004C7E06D5866F 
S1130590069B699769966889009768398D21BD061D 
S11305AOE5966E9733CE0315BD06DEBD0100CE0081 
S11305B020A600367E06828D06966E367E068296CC 
S11305C02C976E7F002CCF032ABD03ECCE00209620 
S11305DO598101220C9654270F8101 220496212768 
S11305E0037E08F5CE0315399621260139CE005332 
SH305FOBD06D5CE0352DF68BD06FACE034CBD0658 
S1130600ECCE034CRD06F3860197718D82860936C4 
S1130610CE0053BD06DECE004CBD06E5BD01005F35 
S11306209645260496202A0153D76PD76C5 3D76A74 
S113O63O P DO54BBO051F324A26D596714C97718175 
S11306400926C8CE006139962C367F002CCE002CAA 
SI130650A6012744BD06F3CE032ABD06ECCE035201 
S1130660DF68BD06FACE004CDF6F4F976C976A9730 
S113067071976D43976BPD054B7C0071PD0504CE2E 
S113068000619676270FB006DECE0345BD06E5BDA7 
S11306900194CE0020200136A60636BD06C7CE033F 
S11306A03F8D42BDC1CD329726329720962484FOA7 







21 



S113068097244 F9725BD0UA5 F962681632E0481B6 
S11306C09C2E0153D73A39DF41CE0020DF3FDE4173 
S11306DOC6077E0262DF3FCE0020DF4120F2DF4109 
S11306E0CE002C20E7DF41CE00332OEODF41CEOOF6 
S11306F04520D9DF41CE004C20D2DF41CE00612010 
S1130700CBCE00338DC1 CE005A8DCACE002CA601AB 
S113071026037E07C3BD08369672270139963A260A 
SI130720FBCE002C8DAFCE005A8DBABD0180963A17 
S113073026EACE002C8D9E2026CE03318D89860597 
S1130740972120C2CE002C809CCE032A8D907E0151 
SI13075094CE03078D8FBD0180CE002CBD06D596A7 
SI1307603281032F037E04BA81F92E06CE032A7E3A 
S113077006C7CE0307BD03ECCE002CBD06D5BD07CE 
S1130780 D9CE0045BD06DECE004CBD06E5BD010355 
S1130790D659C1022309CE033196532B0220C696D3 
SI 1307A05456250C481 648481 BD655545454541BCB 
SI1307B0D6532701409B269726CE002020058D196D 
SI1307C0CE004CA6007E06978D0FC E004520 F480EA 
SI1307D008B004CCCE002020EA CE0389B006E CCEB1 
SI 1307E00331BD06F3C E002CBD06 FACE0061DF6 FE7 
S11307F0CE038FDF684F976D976A976B43976C862C 
SI1308000197718616369D0537BD054BBD051F32F0 
S11308104A26F2BD058F96714C9771810A26E439F8 
S11308208D14CE002CBD06D5CE0307BD06E5BD0153 
SI 13083094CE0020208DCE002CBD06F3CE032ABD1D 
S113084006E5BD010096212606CE03317E07C3CE00 
SI130850032ABD06DE96522A044073002CC6FF5CB0 
S1130860800A24FB8BOA972D5D270CD72048484816 
SH3087048972E86029732CE0307BD06E5BD018058 
S1130880CE0053BD06D5964D276BCE004CA6002B4B 
Si 130890646 F06BD06DF.CE03 2ABD06E5B00103CEA8 
S11308A00045BD06D5CE004CBD06DECE032ABD06EE 
S1130880E5BD0100CE004CDF6FBD06D5CE0331BDD2 
S11308C006FA4F976C976D43976B976ACE038FDF49 
Si13080068BD07FF CE0061BD06D5CE0323BD06E586 
S11308E0BD0180CE002CBD06D5CE0053BD06E5BDAE 
S10D08F001037E083186FF97723978 
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* 

* 


E067 

H« EXTERNAL ROUTINES <MIKBUG) 
OUTHL EQU $E067 

E06B 

OUTHR 

EQU 

*E06B 

E0CC 

OUTS 

EQU 

*E0CC 

E07E 

PDRTA1 

EQU 

♦E07E 

E1AC 

INEEE 

EQU 

$E1AC 

E055 

BYTE 

EQU 

$E055 


* 

* 

* 

* 

)|C 

* THE FOLLOWING IS R VERV CRUDE DRIVER USED FOR TESTING 

* THE SCIENTIFIC PACKAGE. NOTE THAT THIS CODE IS NOT 

* A PART OF THE PRCKRGE. THE PROGRAM IS ENTERED AT 0900 
He AND THE PROMPT "ARGUMENT" IS PRINTED. AT THIS TIME VOU 

* ARE TO ENTER THE ARGUMENT IN FULL INTERNAL FLOATING POINT 

* FORMAT <SIGN/ MANTISSA. EXPONENT). AFTER THE EXPONENT IS 

* ENTERED THE PROMPT "OPERATION" IS PRINTED AND VOU TVPE 

h« ONE OF THE OPERATION CODES FOUND IN THE TABLE BELOW <0-?> 

* NOTE THAT NO CHECKING FOR INPUT NOT IN RANGE IS DONE 

H« <WE SAID IT WAS CRUDE). AFTER TIME FOR THE CALCULATION 
h< HAS ELAPSED THE ANSWER WILL BE PRINTED IN FULL INTERNAL 
He FLOATING POINT FORMAT NORMALIZED FORM. THE OVFL AND NLEGAL 
He BVTES ARE ALSO PRINTED OUT FOR VOUR INFORMATION. THE 

* FUNCTION XTV MUST BE TREATED SPECIALLY BECAUSE NO PROVISIONS 
H« ARE MADE FOR ENTERING THE SECOND OPERAND <THE VALUE 

* FOR Y MUST BE INSTALLED IN YSIGN-YEX BY THE USER BEFORE 
h. CALLING THE FUNCTION. 

He THIS DRIVER USES MANY ROUTINES FROM MIKBUG <MOT. TRADEMARK) 

* IT IS NOT INTENDED FOR SALE BUT IS INCLUDED HERE FOR THE 
He CONVENIENCE OF THOSE WHO MAY FIND USE FOR IT. 


* 

* 


0900 





ORG 


$900 

0900 

8E 

A0 

7F 

START 

LDS 


#$A07F 

O903 

CE 

09 

60 


LDX 


#ARGSTR 

0906 

BD 

E0 

7E 


JSR 


PDATA1 

0909 

CE 

00 

2C 


LDX 


ttXSIGN 

090C 

C6 

07 



LDA 

B 

#7 

090E 

BD 

E0 

55 

LOAD 

JSR 


BYTE 

0911 

A7 

00 



STA 

A 

0, X 

0913 

08 




INX 



0914 

8C 

00 

33 


CPX 


#XSIGN+7 

0917 

26 

F3 



BNE 


LOAD 

0919 

CE 

09 

6F 


LDX 


#OPS 

091C 

BD 

E0 

7E 


JSR 


PDATA1 

091F 

CE 

09 

7D 


LDX 


#SINE 

0922 

BD 

El 

AC 


JSR 


INEEE 

0923 

80 

30 



SUB 

A 

#$30 

0927 

48 




ASL 

A 
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23 


0928 

B7 

09 

2F 


STR 

fl 

TRBOFF+1 


092B 

BD 

E0 

CC 


JSR 


OUTS 


092E 

EE 

00 


TRBOFF 

LDX 


0, X 


0930 

RD 

00 



JSR 


0/ X 


0932 

CE 

00 

20 


LDX 


#RSIGN 


0935 

R6 

00 


PRT 

LDR 

R 

e, x 


0937 

BD 

09 

58 


JSR 


PBVTE 


093R 

08 




INX 




093B 

8C 

00 

27 


CPX 


4RSIGN+7 


093E 

26 

F5 



BNE 


PRT 


0940 

BD 

E0 

CC 


JSR 


OUTS 


0943 

96 

3fl 



LDR 

R 

OVFL 


0945 

BD 

09 

58 


JSR 


PBVTE 


0948 

BD 

E0 

CC 


JSR 


OUTS 


094B 

96 

72 



LDR 

fl 

NLEGRL 


094D 

BD 

09 

58 


JSR 


PBVTE 


0950 

7F 

00 

72 


CLR 


NLEGRL 


0953 

7F 

00 

3R 


CLR 


OVFL 


0956 

20 

R8 



BRR 


START 


0958 

36 



PBVTE 

PSH 

R 



0959 

BD 

E0 

67 


JSR 


OUTHL 


095C 

32 




PUL 

R 



095D 

7E 

E0 

6B 


JMP 


OUTHR 


0960 

0D 

0R 


RRGSTR 

FDB 


$0D0A,$0000 

0964 

41 




FCC 


; ARGUMENT? ; 

096E 

04 




FCB 


4 


096F 

20 



OPS 

FCC 


; OPERATION? 

097C 

04 



* 

FCB 


4 






* 

** OPERRTIOM 

1 CODE TRBLE 


097D 

04 

60 


SINE 

FDB 


SIN 

<0> 

097F 

04 

59 



FDB 


COS 

<1> 

0981 

04 

96 



FDB 


TRN 

<2> 

0983 

05 

B7 



FDB 


RRCSIN 

<3> 

0985 

05 

9C 



FDB 


RRCCOS 

<4> 

0987 

06 

47 



FDB 


RRCTRN 

<5> 

0989 

07 

5F 



FDB 


EXP 

<6> 

098B 

07 

BE 



FDB 


SINH 

<7> 

098D 

07 

C8 



FDB 


COSH 

<8) 

098F 

07 

CF 



FDB 


TRNH 

<9> 

0991 

08 

36 



FDB 


NRTLOG 

<: > 

0993 

08 

20 



FDB 


LOG10 

O > 

0995 

07 

51 



FDB 


RLOG10 

<<> 

0997 

07 

44 



FDB 


INVERS 

< = > 

0999 

07 

39 



FDB 


SORT 

o> 

099B 

07 

01 


a, 

FDB 


XTOV 

<?> 






END 





NO ERROR(S) DETECTED 















